Glasgow TB ACF
1. Libraries and functions
1.1 Libraries
Load the required libraries.
library(tidyverse)
library(sf)
library(here)
library(readxl)
library(scales)
library(DT)
library(brms)
library(tidybayes)
library(patchwork)
library(marginaleffects)
library(ggrepel)
library(scico)
library(ggdensity)
library(ggpubr)
library(units)
#library(ggsn)
1.2 Helper functions
Functions that we will use throughout the script
#labeller for years
year_labels <- c(1950:1963)
#The Glasgow mass minuture chest X-ray campaign happened between 11th March and 12th April 1957
#Segment for graphs to match ACF period
acf_start <- decimal_date(ymd("1957-03-11"))
acf_end <- decimal_date(ymd("1957-04-12"))
Function for counterfactual plots
if (length(facet_vars) != 0) {
p <- p + facet_wrap(facet_vars)
}
Error: object 'facet_vars' not foundFunction for calculating measures of change over time (RR.peak, RR.level, RR.slope)
summarise_change <- function(model_data, model, population_denominator, grouping_var = NULL, re_formula = NULL) {
#functions for calculating RR.peak
#i.e. relative case notification rate in 1957 vs. counterfactual trend for 1957
grouping_var <- enquo(grouping_var)
if (!is.null({{grouping_var}})) {
#make the prediction matrix, conditional on whether we want random effects included or not.
out <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num, !!grouping_var) %>%
filter(y_num == 8),
acf_period = c("a. pre-acf", "b. acf")
)
} else {
out <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num) %>%
filter(y_num == 8),
acf_period = c("a. pre-acf", "b. acf")
)
}
peak_draws <- add_epred_draws(newdata = out,
object = {{model}},
re_formula = {{re_formula}}) %>%
mutate(epred_cnr = .epred/population_without_inst_ship*100000) %>%
group_by(.draw, !!grouping_var) %>%
summarise(estimate = last(epred_cnr)/first(epred_cnr)) %>%
ungroup() %>%
mutate(measure = "RR.peak")
peak_summary <- peak_draws %>%
group_by(!!grouping_var) %>%
mean_qi(estimate) %>%
mutate(measure = "RR.peak")
#functions for calculating RR.step
#i.e. relative case notification rate in 1958 vs. counterfactual trend for 1958
if (!is.null({{grouping_var}})) {
out2 <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num, !!grouping_var) %>%
filter(y_num == 9),
acf_period = c("a. pre-acf", "c. post-acf")
)
} else {
out2 <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num) %>%
filter(y_num == 9),
acf_period = c("a. pre-acf", "c. post-acf")
)
}
level_draws <- add_epred_draws(newdata = out2,
object = {{model}},
re_formula = {{re_formula}}) %>%
arrange(y_num, .draw) %>%
mutate(epred_cnr = .epred/population_without_inst_ship*100000) %>%
group_by(.draw, !!grouping_var) %>%
summarise(estimate = last(epred_cnr)/first(epred_cnr)) %>%
ungroup() %>%
mutate(measure = "RR.level")
level_summary <- level_draws %>%
group_by(!!grouping_var) %>%
mean_qi(estimate) %>%
mutate(measure = "RR.level")
#functions for calculating RR.slope
#i.e. relative change in case notification rate in 1958-1963 vs. counterfactual trend for 1959-1963
if (!is.null({{grouping_var}})) {
out3 <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num, !!grouping_var) %>%
filter(y_num %in% c(9,14)),
acf_period = c("a. pre-acf", "c. post-acf")
)
} else {
out3 <- crossing({{model_data}} %>%
select({{population_denominator}}, y_num) %>%
filter(y_num %in% c(9,14)),
acf_period = c("a. pre-acf", "c. post-acf")
)
}
slope_draws <- add_epred_draws(newdata = out3,
object = {{model}},
re_formula = {{re_formula}}) %>%
arrange(y_num) %>%
ungroup() %>%
mutate(epred_cnr = .epred/population_without_inst_ship*100000) %>%
group_by(.draw, acf_period, !!grouping_var) %>%
summarise(slope = (last(epred_cnr) - first(epred_cnr)) / (last(y_num)-first(y_num))) %>%
ungroup() %>%
group_by(.draw, !!grouping_var) %>%
summarise(estimate = last(slope)/first(slope)) %>%
mutate(measure = "RR.slope")
slope_summary <- slope_draws %>%
group_by(!!grouping_var) %>%
median_qi(estimate) %>%
mutate(measure = "RR.slope")
#gather all the results into a named list
lst(peak_draws=peak_draws, peak_summary=peak_summary,
level_draws=level_draws, level_summary=level_summary,
slope_draws=slope_draws, slope_summary=slope_summary)
}
Function for calculating difference from counterfactual
calculate_counterfactual <- function(model_data, model, population_denominator, grouping_var=NULL, re_formula=NA){
#effect vs. counterfactual
counterfact <-
add_epred_draws(object = {{model}},
newdata = {{model_data}} %>%
select(year, year2, y_num, {{population_denominator}}, {{grouping_var}}) %>%
mutate(acf_period = "a. pre-acf"),
re_formula = {{re_formula}}) %>%
group_by(.draw, year, {{grouping_var}}, acf_period) %>%
mutate(.epred_inc_counterf = .epred/{{population_denominator}}*100000, .epred_counterf=.epred) %>%
filter(year>1957) %>%
ungroup() %>%
select(year, {{population_denominator}}, .draw, .epred_counterf, .epred_inc_counterf, {{grouping_var}})
#Calcuate case notification rate per draw, then summarise.
post_change <-
add_epred_draws(object = {{model}},
newdata = {{model_data}} %>%
select(year, year2, y_num, {{population_denominator}}, {{grouping_var}}, acf_period),
re_formula = {{re_formula}}) %>%
group_by(.draw, year, {{grouping_var}}, acf_period) %>%
mutate(.epred_inc = .epred/{{population_denominator}}*100000) %>%
filter(year>1957) %>%
ungroup() %>%
select(year, {{population_denominator}}, {{grouping_var}}, .draw, .epred, .epred_inc, {{grouping_var}})
#for the overall period
counterfact_overall <-
add_epred_draws(object = {{model}},
newdata = {{model_data}} %>%
select(year, year2, y_num, {{population_denominator}}, {{grouping_var}}) %>%
mutate(acf_period = "a. pre-acf"),
re_formula = {{re_formula}}) %>%
group_by(.draw, {{grouping_var}}) %>%
filter(year>1957) %>%
ungroup() %>%
select({{population_denominator}}, .draw, .epred, {{grouping_var}}) %>%
group_by(.draw, {{grouping_var}}) %>%
summarise(.epred_counterf = sum(.epred))
#Calcuate case notification rate per draw, then summarise.
post_change_overall <-
add_epred_draws(object = {{model}},
newdata = {{model_data}} %>%
select(year, year2, y_num, {{population_denominator}}, {{grouping_var}}, acf_period),
re_formula = {{re_formula}}) %>%
group_by(.draw, {{grouping_var}}) %>%
filter(year>1957) %>%
ungroup() %>%
select({{population_denominator}}, {{grouping_var}}, .draw, .epred) %>%
group_by(.draw, {{grouping_var}}) %>%
summarise(.epred = sum(.epred))
counter_post <-
left_join(counterfact, post_change) %>%
mutate(cases_averted = .epred_counterf-.epred,
pct_change = (.epred - .epred_counterf)/.epred_counterf,
diff_inc100k = .epred_inc - .epred_inc_counterf,
rr_inc100k = .epred_inc/.epred_inc_counterf) %>%
group_by(year, {{grouping_var}}) %>%
mean_qi(cases_averted, pct_change, diff_inc100k, rr_inc100k) %>%
ungroup()
counter_post_overall <-
left_join(counterfact_overall, post_change_overall) %>%
mutate(cases_averted = .epred_counterf-.epred,
pct_change = (.epred - .epred_counterf)/.epred_counterf) %>%
group_by({{grouping_var}}) %>%
mean_qi(cases_averted, pct_change) %>%
ungroup()
lst(counter_post, counter_post_overall)
}
Function for tidying up counterfactuals (mostly for making nice tables)
tidy_counterfactuals <- function(data){
data %>%
mutate(across(c(cases_averted:cases_averted.upper, diff_inc100k:diff_inc100k.upper), number_format(accuracy = 0.1, big.mark = ","))) %>%
mutate(across(c(rr_inc100k:rr_inc100k.upper), number_format(accuracy = 0.01))) %>%
mutate(across(c(pct_change:pct_change.upper), percent, accuracy=0.1)) %>%
mutate(year = as.character(year),
cases_averted = glue::glue("{cases_averted} ({cases_averted.lower} to {cases_averted.upper})"),
pct_change = glue::glue("{pct_change} ({pct_change.lower} to {pct_change.upper})"),
diff_inc = glue::glue("{diff_inc100k} ({diff_inc100k.lower} to {diff_inc100k.upper})"),
rr_inc = glue::glue("{rr_inc100k} ({rr_inc100k.lower} to {rr_inc100k.upper})"))
}
tidy_counterfactuals_overall <- function(data){
data %>%
mutate(across(c(cases_averted:cases_averted.upper), number_format(accuracy = 0.1, big.mark = ","))) %>%
mutate(across(c(pct_change:pct_change.upper), percent, accuracy=0.1)) %>%
mutate(year = as.character(year),
cases_averted = glue::glue("{cases_averted} ({cases_averted.lower} to {cases_averted.upper})"),
pct_change = glue::glue("{pct_change} ({pct_change.lower} to {pct_change.upper})"))
}
2. Data
Import datasets for analysis
2.1 Shapefiles
Make a map of Glasgow wards
glasgow_wards_1951 <- st_read(here("mapping/glasgow_wards_1951.geojson"))Reading layer `glasgow_wards_1951' from data source
`/Users/petermacpherson/Dropbox/Projects/Historical TB ACF 2023-11-28/Work/analysis/glasgow-cxr/mapping/glasgow_wards_1951.geojson' using driver `GeoJSON'
Simple feature collection with 37 features and 3 fields
Geometry type: MULTIPOLYGON
Dimension: XY
Bounding box: xmin: -4.393502 ymin: 55.77464 xmax: -4.070411 ymax: 55.92814
Geodetic CRS: WGS 84
#read in Scotland boundary
scotland <- st_read(here("mapping/Scotland_boundary/Scotland boundary.shp"))Reading layer `Scotland boundary' from data source
`/Users/petermacpherson/Dropbox/Projects/Historical TB ACF 2023-11-28/Work/analysis/glasgow-cxr/mapping/Scotland_boundary/Scotland boundary.shp'
using driver `ESRI Shapefile'
Simple feature collection with 1 feature and 1 field
Geometry type: MULTIPOLYGON
Dimension: XY
Bounding box: xmin: 5513 ymin: 530249 xmax: 470332 ymax: 1220302
Projected CRS: OSGB36 / British National Grid#make a bounding box for Glasgow
bbox <- st_bbox(glasgow_wards_1951) |> st_as_sfc()
#plot scotland with a bounding box around the City of Glasgow
scotland_with_bbox <- ggplot() +
geom_sf(data = scotland, fill="antiquewhite") +
geom_sf(data = bbox, colour = "#C60C30", fill="antiquewhite") +
theme_void() +
theme(panel.border = element_rect(colour = "grey78", fill=NA, linewidth = 0.5),
panel.background = element_rect(fill = "#EAF7FA", size = 0.3))Warning: The `size` argument of `element_rect()` is deprecated as of ggplot2 3.4.0.
Please use the `linewidth` argument instead.#plot the wards
#note we tidy up some names to fit on map
glasgow_ward_map <- glasgow_wards_1951 %>%
mutate(ward = case_when(ward=="Shettleston and Tollcross" ~ "Shettleston and\nTollcross",
ward=="Partick (West)" ~ "Partick\n(West)",
ward=="Partick (East)" ~ "Partick\n(East)",
ward=="North Kelvin" ~ "North\nKelvin",
ward=="Kinning Park" ~ "Kinning\nPark",
TRUE ~ ward)) %>%
ggplot() +
geom_sf(aes(fill=division)) +
geom_sf_label(aes(label = ward), size=3, fill=NA, label.size = NA, colour="black") +
#scale_colour_identity() +
scale_fill_brewer(palette = "Set3", name="City of Glasgow Division") +
theme_grey() +
labs(x="",
y="",
fill="Division") +
theme(legend.position = "top",
panel.border = element_rect(colour = "grey78", fill=NA, linewidth = 0.5),
panel.background = element_rect(fill = "antiquewhite", size = 0.3),
panel.grid.major = element_line(color = "grey78")) +
guides(fill=guide_legend(title.position = "top", title.hjust = 0.5, title.theme = element_text(face="bold")))
#add the map of scotland as an inset
glasgow_ward_map + inset_element(scotland_with_bbox, 0.75, 0, 1, 0.4)
ggsave(here("figures/s1.png"), height=10, width = 12)
NA
NACalculate areas per geographical unit
sf_use_s2(FALSE) #https://github.com/r-spatial/sf/issues/1762Spherical geometry (s2) switched offglasgow_wards_1951 <- glasgow_wards_1951 %>%
mutate(area = st_area(glasgow_wards_1951))
glasgow_wards_1951$area_km <- units::set_units(glasgow_wards_1951$area, km^2)
Make division shape files, and calculate area (stopped working, need to fix!)
# glasgow_divisions_1951 <- glasgow_wards_1951 %>%
# group_by(division) %>%
# summarize(geometry = st_union(geometry)) %>%
# nngeo::st_remove_holes() %>%
# mutate(area = st_area(glasgow_divisions_1951))
#
# glasgow_divisions_1951$area_km <- units::set_units(glasgow_divisions_1951$area, km^2)
3. Denominators
Load in the datasets for denonomiators, and check for consistency.
overall_pops <- read_xlsx(path = "2023-11-28_glasgow-acf.xlsx", sheet = "overall_population")
overall_pops %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()
#shift year to midpoint
overall_pops <- overall_pops %>%
mutate(year2 = year+0.5)
Note, we have three population estimates:
- Population without institutionalised people or people in shipping
- Population in institutions
- Population in shipping
(Population in shipping is estimated from the 1951 census, so is the same for most years)
3.1 Overall population
First, plot the total population
overall_pops %>%
ggplot() +
geom_area(aes(y=total_population, x=year2), alpha=0.5, colour = "mediumseagreen", fill="mediumseagreen") +
geom_point(aes(y=total_population, x=year2), colour = "mediumseagreen") +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels) +
labs(
title = "Glasgow Corporation: total population",
subtitle = "1950 to 1963",
x = "Year",
y = "Population",
caption = "Mid-year estimates\nMass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist()
NA
NANow the population excluding institutionalised and shipping population
overall_pops %>%
ggplot() +
geom_area(aes(y=population_without_inst_ship, x=year2), alpha=0.5, colour = "purple", fill="purple") +
geom_point(aes(y=population_without_inst_ship, x=year2), colour = "purple") +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels) +
labs(
title = "Glasgow Corporation: population excluding institutionalised and shipping",
subtitle = "1950 to 1963",
x = "Year",
y = "Population",
caption = "Mid-year estimates\nMass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist()
NA
NA3.2 Population by Ward
There are 5 Divisions containing 37 Wards in the Glasgow Corporation, with consistent boundaries over time.
#look-up table for divisions and wards
ward_lookup <- read_xlsx(path = "2023-11-28_glasgow-acf.xlsx", sheet = "divisions_wards")
ward_pops <- read_xlsx(path = "2023-11-28_glasgow-acf.xlsx", sheet = "ward_population")
ward_pops %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()
#shift year to midpoint
ward_pops <- ward_pops %>%
mutate(year2 = year+0.5)
#Get the Division population
division_pops <- ward_pops %>%
group_by(division, year) %>%
summarise(population_without_inst_ship = sum(population_without_inst_ship, na.rm = TRUE),
institutions = sum(institutions, na.rm = TRUE),
shipping = sum(shipping, na.rm = TRUE),
total_population = sum(total_population, na.rm = TRUE))`summarise()` has grouped output by 'division'. You can override using the `.groups` argument.division_pops %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()NAPlot the overall population by Division and Ward
division_pops %>%
mutate(year2 = year+0.5) %>%
ggplot() +
geom_area(aes(y=total_population, x=year2, colour=division, fill=division), alpha=0.8) +
geom_point(aes(y=total_population, x=year2, colour=division)) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
facet_wrap(division~.) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
scale_fill_brewer(palette = "Set3", name = "") +
scale_colour_brewer(palette = "Set3", name = "") +
labs(
title = "Glasgow Corporation: total population by Division",
subtitle = "1950 to 1963",
x = "Year",
y = "Population",
caption = "Mid-year estimates\nMass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist() +
theme(legend.position = "bottom")
NA
NA
ward_pops %>%
ggplot() +
geom_area(aes(y=total_population, x=year2, colour=division, fill=division), alpha=0.8) +
geom_point(aes(y=total_population, x=year2, colour=division)) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
facet_wrap(ward~., ncol=6) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
scale_fill_brewer(palette = "Set3", name="Division") +
scale_colour_brewer(palette = "Set3", name = "Division") +
labs(
title = "Glasgow City: total population by Ward",
subtitle = "1950 to 1963",
x = "Year",
y = "Population",
caption = "Mid-year estimates\nMass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist() +
theme(legend.position = "bottom")
ggsave(here("figures/s2.png"), height=10, width=12)
Approximately, how many person-years of follow-up do we have?
overall_pops %>%
ungroup() %>%
summarise(across(year, length, .names = "years"),
across(c(population_without_inst_ship, total_population), sum)) %>%
mutate(across(where(is.double), comma)) %>%
datatable()NA
NAChange in population by ward
ward_pops %>%
group_by(ward) %>%
summarise(pct_change_pop = (last(population_without_inst_ship) - first(population_without_inst_ship))/first(population_without_inst_ship)) %>%
mutate(pct_change_pop = percent(pct_change_pop)) %>%
arrange(pct_change_pop) %>%
datatable()NA
NA
NAOutput population density by ward and divison for regression modelling
Wards first
(stopped working, need to fix)
# ward_covariates <- glasgow_wards_1951 %>%
# left_join(ward_pops) %>%
# mutate(people_per_km_sq = as.double(population_without_inst_ship/area_km))
#
# #plot it out
#
# ward_covariates %>%
# ggplot() +
# geom_sf(aes(fill=people_per_km_sq)) +
# facet_wrap(year~., ncol=7) +
# scale_fill_viridis_c(option="A") +
# theme(legend.position = "bottom",
# axis.text.x = element_text(angle = 45, hjust=1))
#
# ggsave(here("figures/ward_pop_density.png"), width=10)
#
# write_rds(ward_covariates, here("populations/ward_covariates.rds"))
Now divisions first
(stopped working, need to fix)
# division_covariates <- glasgow_divisions_1951 %>%
# left_join(division_pops) %>%
# mutate(people_per_km_sq = as.double(total_population/area_km))
#
# #plot it out
#
# division_covariates %>%
# ggplot() +
# geom_sf(aes(fill=people_per_km_sq)) +
# geom_sf_label(aes(label = division), size=3, fill=NA, label.size = NA, colour="black", family = "Segoe UI") +
# facet_wrap(year~., ncol=7) +
# scale_fill_viridis_c(option="G") +
# theme(legend.position = "bottom",
# axis.text.x = element_text(angle = 45, hjust=1))
#
# ggsave(here("figures/division_pop_density.png"), width=10)
#
# write_rds(division_covariates, here("populations/division_covariates.rds"))
3.3 Population by age and sex
age_sex <- read_xlsx(path = "2023-11-28_glasgow-acf.xlsx", sheet = "age_sex_population") %>%
pivot_longer(cols = c(male, female),
names_to = "sex")
#collapse down to smaller age groups to be manageable
age_sex <- age_sex %>%
ungroup() %>%
mutate(age = case_when(age == "0 to 4" ~ "00 to 04",
age == "5 to 9" ~ "05 to 14",
age == "10 to 14" ~ "05 to 14",
age == "15 to 19" ~ "15 to 24",
age == "20 to 24" ~ "15 to 24",
age == "25 to 29" ~ "25 to 34",
age == "30 to 34" ~ "25 to 34",
age == "35 to 39" ~ "35 to 44",
age == "40 to 44" ~ "35 to 44",
age == "45 to 49" ~ "45 to 59",
age == "50 to 54" ~ "45 to 59",
age == "55 to 59" ~ "45 to 59",
TRUE ~ "60 & up")) %>%
group_by(year, age, sex) %>%
mutate(value = sum(value)) %>%
ungroup()
m_age_sex <- lm(value ~ splines::ns(year, knots = 3)*age*sex, data = age_sex)
summary(m_age_sex)Warning: essentially perfect fit: summary may be unreliable
Call:
lm(formula = value ~ splines::ns(year, knots = 3) * age * sex,
data = age_sex)
Residuals:
Min 1Q Median 3Q Max
-1.185e-10 0.000e+00 0.000e+00 0.000e+00 1.185e-10
Coefficients: (14 not defined because of singularities)
Estimate Std. Error t value Pr(>|t|)
(Intercept) 5.222e+04 2.040e-10 2.559e+14 <2e-16 ***
splines::ns(year, knots = 3)1 -8.043e+03 4.071e-10 -1.976e+13 <2e-16 ***
splines::ns(year, knots = 3)2 NA NA NA NA
age05 to 14 3.669e+04 2.499e-10 1.468e+14 <2e-16 ***
age15 to 24 -3.893e+03 2.499e-10 -1.558e+13 <2e-16 ***
age25 to 34 -3.996e+04 2.499e-10 -1.599e+14 <2e-16 ***
age35 to 44 -4.230e+04 2.499e-10 -1.693e+14 <2e-16 ***
age45 to 59 5.459e+04 2.356e-10 2.317e+14 <2e-16 ***
age60 & up 7.533e+04 2.204e-10 3.418e+14 <2e-16 ***
sexmale 3.374e+03 2.886e-10 1.169e+13 <2e-16 ***
splines::ns(year, knots = 3)1:age05 to 14 -1.863e+03 4.985e-10 -3.737e+12 <2e-16 ***
splines::ns(year, knots = 3)2:age05 to 14 NA NA NA NA
splines::ns(year, knots = 3)1:age15 to 24 7.533e+04 4.985e-10 1.511e+14 <2e-16 ***
splines::ns(year, knots = 3)2:age15 to 24 NA NA NA NA
splines::ns(year, knots = 3)1:age25 to 34 1.325e+05 4.985e-10 2.658e+14 <2e-16 ***
splines::ns(year, knots = 3)2:age25 to 34 NA NA NA NA
splines::ns(year, knots = 3)1:age35 to 44 1.380e+05 4.985e-10 2.769e+14 <2e-16 ***
splines::ns(year, knots = 3)2:age35 to 44 NA NA NA NA
splines::ns(year, knots = 3)1:age45 to 59 3.474e+03 4.700e-10 7.390e+12 <2e-16 ***
splines::ns(year, knots = 3)2:age45 to 59 NA NA NA NA
splines::ns(year, knots = 3)1:age60 & up -8.453e+04 4.397e-10 -1.923e+14 <2e-16 ***
splines::ns(year, knots = 3)2:age60 & up NA NA NA NA
splines::ns(year, knots = 3)1:sexmale -1.994e+03 5.757e-10 -3.464e+12 <2e-16 ***
splines::ns(year, knots = 3)2:sexmale NA NA NA NA
age05 to 14:sexmale 1.053e+04 3.534e-10 2.980e+13 <2e-16 ***
age15 to 24:sexmale 2.352e+04 3.534e-10 6.656e+13 <2e-16 ***
age25 to 34:sexmale 1.355e+04 3.534e-10 3.833e+13 <2e-16 ***
age35 to 44:sexmale -1.727e+03 3.534e-10 -4.888e+12 <2e-16 ***
age45 to 59:sexmale 2.774e+03 3.332e-10 8.324e+12 <2e-16 ***
age60 & up:sexmale -7.761e+04 3.117e-10 -2.490e+14 <2e-16 ***
splines::ns(year, knots = 3)1:age05 to 14:sexmale -2.049e+04 7.051e-10 -2.906e+13 <2e-16 ***
splines::ns(year, knots = 3)2:age05 to 14:sexmale NA NA NA NA
splines::ns(year, knots = 3)1:age15 to 24:sexmale -6.780e+04 7.051e-10 -9.616e+13 <2e-16 ***
splines::ns(year, knots = 3)2:age15 to 24:sexmale NA NA NA NA
splines::ns(year, knots = 3)1:age25 to 34:sexmale -3.804e+04 7.051e-10 -5.396e+13 <2e-16 ***
splines::ns(year, knots = 3)2:age25 to 34:sexmale NA NA NA NA
splines::ns(year, knots = 3)1:age35 to 44:sexmale -1.171e+04 7.051e-10 -1.661e+13 <2e-16 ***
splines::ns(year, knots = 3)2:age35 to 44:sexmale NA NA NA NA
splines::ns(year, knots = 3)1:age45 to 59:sexmale -3.473e+04 6.647e-10 -5.224e+13 <2e-16 ***
splines::ns(year, knots = 3)2:age45 to 59:sexmale NA NA NA NA
splines::ns(year, knots = 3)1:age60 & up:sexmale 1.056e+05 6.218e-10 1.698e+14 <2e-16 ***
splines::ns(year, knots = 3)2:age60 & up:sexmale NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 3.074e-11 on 44 degrees of freedom
Multiple R-squared: 1, Adjusted R-squared: 1
F-statistic: 6.006e+29 on 27 and 44 DF, p-value: < 2.2e-16age_levels <- age_sex %>% select(age) %>% distinct() %>% pull()
age_sex_nd <-
crossing(
age=age_levels,
sex=c("male", "female"),
year = 1950:1963
)
pred_pops <- age_sex_nd %>% modelr::add_predictions(m_age_sex)Warning: prediction from a rank-deficient fit may be misleadingpred_pops %>%
ggplot(aes(x=year, y=pred, colour=age)) +
geom_line() +
geom_point() +
facet_grid(sex~.) +
scale_y_continuous(labels = comma, limits = c(0, 125000))
#How well do they match up with our overall populations?
pred_pops %>%
group_by(year) %>%
summarise(sum_pred_pop = sum(pred)) %>%
right_join(overall_pops) %>%
select(year, sum_pred_pop, population_without_inst_ship, total_population) %>%
pivot_longer(cols = c(sum_pred_pop, population_without_inst_ship, total_population)) %>%
ggplot(aes(x=year, y=value, colour=name)) +
geom_point() +
scale_y_continuous(labels = comma, limits = c(800000, 1250000))Joining with `by = join_by(year)`
pred_pops %>%
group_by(year, sex) %>%
summarise(sum = sum(pred)) %>%
group_by(year) %>%
mutate(sex_ratio = first(sum)/last(sum))`summarise()` has grouped output by 'year'. You can override using the `.groups` argument.What percentage of adults (15+ participated in the intervention in 1957)?
pred_pops %>%
ungroup() %>%
filter(year==1957) %>%
filter(age != "00 to 04",
age != "05 to 14") %>%
summarise(total_pop = sum(pred)) %>%
mutate(cxr_screened = 622349) %>%
mutate(pct_pop_cxr_screened = percent(cxr_screened/total_pop))
pred_pops %>%
ungroup() %>%
filter(year==1957) %>%
filter(age != "00 to 04",
age != "05 to 14") %>%
summarise(total_pop = sum(pred), .by=sex) %>%
mutate(cxr_screened = c(340474, 281875)) %>%
mutate(pct_pop_cxr_screened = percent(cxr_screened/total_pop))NA
NAPopulation pyramids
label_abs <- function(x) {
comma(abs(x))
}
pred_pops %>%
ungroup() %>%
group_by(year) %>%
mutate(year_pop = sum(pred),
age_sex_pct = percent(pred/year_pop, accuracy=0.1)) %>%
mutate(sex = case_when(sex=="male" ~ "Male",
sex=="female" ~ "Female")) %>%
ggplot(
aes(x = age, fill = sex,
y = ifelse(test = sex == "Female",yes = -pred, no = pred))) +
geom_bar(stat = "identity") +
geom_text(aes(label = age_sex_pct),
position= position_stack(vjust=0.5), colour="white", size=2.5) +
facet_wrap(year~., ncol=7) +
coord_flip() +
scale_y_continuous(labels = label_abs) +
scale_fill_manual(values = c("mediumseagreen", "purple"), name="") +
theme_ggdist() +
theme(axis.text.x = element_text(angle=90, hjust = 1, vjust=0.5),
legend.position = "bottom",
panel.border = element_rect(colour = "grey78", fill=NA)) +
labs(x="", y="")
ggsave(here("figures/s3.png"), width=10)Saving 10 x 4.5 in image
Not perfect, but resonably good. But ahhhhh… the age groups don’t align with the case notification age groups! Come back to think about this later.
4. Tuberculosis cases
Import the tuberculosis cases dataset
4.1 Overall notifications
Overall, by year.
cases_by_year <- read_xlsx("2023-11-28_glasgow-acf.xlsx", sheet = "by_year")
cases_by_year%>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()
#shift year to midpoint
cases_by_year <- cases_by_year %>%
mutate(year2 = year+0.5)
Plot the overall number of case notified per year, by pulmonary and extra pulmonary classification.
cases_by_year %>%
select(-total_notifications, -year) %>%
pivot_longer(cols = c(pulmonary_notifications, `non-pulmonary_notifications`)) %>%
mutate(name = case_when(name == "pulmonary_notifications" ~ "Pulmonary TB",
name == "non-pulmonary_notifications" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=value, x=year2, group = name, fill=name), alpha=0.5) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels) +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis notifications",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Number of cases",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist() +
theme(legend.position = "bottom")
NA
NA4.2 Notifications by Division
Read in the datasets and merge together.
#list all the sheets
all_sheets <- excel_sheets("2023-11-28_glasgow-acf.xlsx")
#get the ward sheets
ward_sheets <- enframe(all_sheets) %>%
filter(grepl("by_ward", value)) %>%
pull(value)
cases_by_ward_sex_year <- map_df(ward_sheets, ~read_xlsx(path = "2023-11-28_glasgow-acf.xlsx",
sheet = .))
cases_by_ward_sex_year %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()NAAggregate together to get cases by division
cases_by_division <- cases_by_ward_sex_year %>%
left_join(ward_lookup) %>%
group_by(division, year, tb_type) %>%
summarise(cases = sum(cases, na.rm = TRUE))Joining with `by = join_by(ward)``summarise()` has grouped output by 'division', 'year'. You can override using the `.groups` argument.#shift year to midpoint
cases_by_division <- cases_by_division %>%
mutate(year2 = year+0.5) %>%
ungroup()
cases_by_division %>%
select(-year2) %>%
select(year, everything()) %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()
cases_by_division %>%
mutate(tb_type = case_when(tb_type == "Pulmonary" ~ "Pulmonary TB",
tb_type == "Non-Pulmonary" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=cases, x=year2, group = tb_type, fill=tb_type), alpha=0.5) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
facet_wrap(division~., scales = "free_y") +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis notifications by Division",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Number of cases",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)\nNote: extra-pulmonary TB cases by Division/Ward not reported in 1962-1963"
) +
theme_ggdist() +
theme(legend.position = "bottom")
4.3 Notifications by ward
cases_by_ward <- cases_by_ward_sex_year %>%
group_by(ward, year, tb_type) %>%
summarise(cases = sum(cases, na.rm = TRUE)) %>%
ungroup()`summarise()` has grouped output by 'ward', 'year'. You can override using the `.groups` argument.cases_by_ward %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
select(year, everything()) %>%
datatable()
#shift year to midpoint
cases_by_ward <- cases_by_ward %>%
mutate(year2 = year+0.5)
cases_by_ward %>%
mutate(tb_type = case_when(tb_type == "Pulmonary" ~ "Pulmonary TB",
tb_type == "Non-Pulmonary" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=cases, x=year2, group = tb_type, fill=tb_type), alpha=0.8) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
facet_wrap(ward~., scales = "free_y") +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis notifications by Ward",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Number of cases",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)\nNote: extra-pulmonary TB cases by Division/Ward not reported in 1962-1963"
) +
theme(legend.position = "bottom")
NA
NA4.4 Notifications by age and sex
As we don’t have denominators, we will just model the change in counts.
#list all the sheets
all_sheets <- excel_sheets("2023-11-28_glasgow-acf.xlsx")
#get the ward sheets
age_sex_sheets <- enframe(all_sheets) %>%
filter(grepl("by_age_sex", value)) %>%
pull(value)
cases_by_age_sex <- map_df(age_sex_sheets, ~read_xlsx(path = "2023-11-28_glasgow-acf.xlsx",
sheet = .))
cases_by_age_sex %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()NA
NA5 TB case notification rates
5.1 Overall TB case notification rates
Now calculate case notification rates per 100,000 population
Merge the notification and population denominator datasets together.
Here we need to include the whole population (with shipping and institutions) as they are included in the notifications.
overall_inc <- overall_pops %>%
left_join(cases_by_year)Joining with `by = join_by(year, year2)`overall_inc <- overall_inc %>%
mutate(inc_pulm_100k = pulmonary_notifications/total_population*100000,
inc_ep_100k = `non-pulmonary_notifications`/total_population*100000,
inc_100k = total_notifications/total_population*100000)
overall_inc %>%
select(year, inc_100k, inc_pulm_100k, inc_ep_100k) %>%
mutate_at(.vars = vars(inc_100k, inc_pulm_100k, inc_ep_100k),
.funs = funs(round)) %>%
datatable()Warning: `funs()` was deprecated in dplyr 0.8.0.
Please use a list of either functions or lambdas:
# Simple named list:
list(mean = mean, median = median)
# Auto named with `tibble::lst()`:
tibble::lst(mean, median)
# Using lambdas
list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
overall_inc %>%
select(year2, inc_pulm_100k, inc_ep_100k) %>%
pivot_longer(cols = c(inc_pulm_100k, `inc_ep_100k`)) %>%
mutate(name = case_when(name == "inc_pulm_100k" ~ "Pulmonary TB",
name == "inc_ep_100k" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=value, x=year2, group = name, fill=name), alpha=0.5) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels) +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis case notification rate",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Case notification rate (per 100,000)",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme_ggdist() +
theme(legend.position = "bottom")
NA
NA
NA5.2 TB case notification rates by Division
division_inc <- division_pops %>%
left_join(cases_by_division)Joining with `by = join_by(division, year)`division_inc <- division_inc %>%
mutate(inc_100k = cases/total_population*100000)
division_inc %>%
select(year, division, tb_type, inc_100k) %>%
mutate_at(.vars = vars(inc_100k),
.funs = funs(round)) %>%
datatable()Warning: `funs()` was deprecated in dplyr 0.8.0.
Please use a list of either functions or lambdas:
# Simple named list:
list(mean = mean, median = median)
# Auto named with `tibble::lst()`:
tibble::lst(mean, median)
# Using lambdas
list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
division_inc %>%
mutate(tb_type = case_when(tb_type == "Pulmonary" ~ "Pulmonary TB",
tb_type == "Non-Pulmonary" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=inc_100k, x=year2, group = tb_type, fill=tb_type), alpha=0.5) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
facet_wrap(division~.) +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis case notification rate, by Division",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Case notification rate (per 100,000)",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)\nNote: extra-pulmonary TB cases by Division/Ward not reported in 1962-1963"
) +
theme_ggdist() +
theme(legend.position = "bottom")
NA
NA
NA5.2 TB case notification rates by Ward
Here we will filter out the institutions and harbour from the denominators, as we don’t have reliable population denominators for them.
ward_inc <- ward_pops %>%
left_join(cases_by_ward)Joining with `by = join_by(ward, year, year2)`ward_inc <- ward_inc %>%
mutate(inc_100k = cases/population_without_inst_ship*100000)
ward_inc %>%
select(year, ward, tb_type, inc_100k) %>%
mutate_at(.vars = vars(inc_100k),
.funs = funs(round)) %>%
datatable()Warning: `funs()` was deprecated in dplyr 0.8.0.
Please use a list of either functions or lambdas:
# Simple named list:
list(mean = mean, median = median)
# Auto named with `tibble::lst()`:
tibble::lst(mean, median)
# Using lambdas
list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
ward_inc %>%
mutate(tb_type = case_when(tb_type == "Pulmonary" ~ "Pulmonary TB",
tb_type == "Non-Pulmonary" ~ "Extra-pulmonary TB")) %>%
ggplot() +
geom_area(aes(y=inc_100k, x=year2, group = tb_type, fill=tb_type), alpha=0.5) +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
facet_wrap(ward~.) +
scale_fill_brewer(palette = "Set1", name="") +
labs(
title = "Glasgow Corporation: Tuberculosis case notification rate, by Ward",
subtitle = "1950 to 1963, by TB disease classification",
x = "Year",
y = "Incidence (per 100,000)",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)\nNote: extra-pulmonary TB cases by Division/Ward not reported in 1962-1963"
) +
theme(legend.position = "bottom")
NA
NA
NA
NAOn a map
st_as_sf(left_join(ward_inc, glasgow_wards_1951)) %>%
filter(tb_type=="Pulmonary") %>%
ggplot() +
geom_sf(aes(fill=inc_100k)) +
facet_wrap(year~., ncol = 7) +
scale_fill_viridis_c(name="Case notification rate (per 100,000)",
option = "A") +
theme_ggdist() +
theme(legend.position = "top",
legend.key.width = unit(2, "cm"),
panel.border = element_rect(colour = "grey78", fill=NA)) +
guides(fill=guide_colorbar(title.position = "top"))Joining with `by = join_by(division, ward, ward_number)`
6. TB Mortality
6.1 Overall Mortality
Import the TB mortality data.
First, overall deaths. Note that in the original reports, we have a pulmonary TB death rate per million for all years, and numbers of pulmonary TB deaths for each year apart from 1950.
#get the overall mortality sheets
deaths_sheets <- enframe(all_sheets) %>%
filter(grepl("deaths", value)) %>%
pull(value)
overall_deaths <- map_df(deaths_sheets, ~read_xlsx(path = "2023-11-28_glasgow-acf.xlsx",
sheet = .))
overall_deaths %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) %>%
datatable()NA
NA
NAPlot the raw numbers of pulmonary deaths
overall_deaths %>%
ggplot(aes(x=year, y=pulmonary_deaths)) +
geom_line(colour = "#DE0D92") +
geom_point(colour = "#DE0D92") +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
labs(y="Pulmonary TB deaths per year",
x = "Year",
title = "Numbers of pulmonary TB deaths",
subtitle = "Glasgow, 1950-1963",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)\nNote: no data for 1950") +
theme_ggdist() +
theme(panel.border = element_rect(colour = "grey78", fill=NA))
NA
NANow the incidence of pulmonary TB death
overall_deaths %>%
ggplot(aes(x=year, y=pulmonary_death_rate_per_100k)) +
geom_line(colour = "#4D6CFA") +
geom_point(colour = "#4D6CFA") +
geom_vline(aes(xintercept=acf_start), linetype=3) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels) +
labs(y="Annual incidence of death (per 100,000)",
x = "Year",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)") +
theme_ggdist() +
theme(panel.border = element_rect(colour = "grey78", fill=NA))
ggsave(here("figures/s7.png"), width=10)Saving 10 x 4.5 in image
6. Table 1
Make Table 1 here, and save for publication.
overall_pops %>%
select(year, total_population) %>%
left_join(overall_inc %>%
select(year,
pulmonary_notifications, inc_pulm_100k,
`non-pulmonary_notifications`, inc_ep_100k,
total_notifications, inc_100k)) %>%
left_join(overall_deaths %>%
select(year,
pulmonary_deaths, pulmonary_death_rate_per_100k)) %>%
mutate(across(where(is.numeric) & !(year), ~round(., digits=1))) %>%
mutate(across(where(is.numeric) & !(year), ~comma(.))) Joining with `by = join_by(year)`Joining with `by = join_by(year)`Prepare the datasets for modelling
mdata <- ward_inc %>%
filter(tb_type=="Pulmonary") %>%
mutate(acf_period = case_when(year %in% c(1950:1956) ~ "a. pre-acf",
year %in% c(1957) ~ "b. acf",
year %in% c(1958:1963) ~ "c. post-acf")) %>%
group_by(ward) %>%
mutate(y_num = row_number()) %>%
ungroup()
mdata_extrapulmonary <- ward_inc %>%
filter(tb_type=="Non-Pulmonary") %>%
mutate(acf_period = case_when(year %in% c(1950:1956) ~ "a. pre-acf",
year %in% c(1957) ~ "b. acf",
year %in% c(1958:1963) ~ "c. post-acf")) %>%
group_by(ward) %>%
mutate(y_num = row_number()) %>%
ungroup()
#scaffold for overall predictions
overall_scaffold <- mdata %>%
select(year, year2, y_num, acf_period, population_without_inst_ship, ward, cases) %>%
group_by(year, year2, y_num, acf_period) %>%
summarise(population_without_inst_ship = sum(population_without_inst_ship),
cases = sum(cases)) %>%
ungroup() %>%
mutate(inc_100k = cases/population_without_inst_ship*100000) %>%
left_join(mdata_extrapulmonary %>% group_by(year) %>%
summarise(cases_extrapulmonary = sum(cases))) %>%
mutate(inc_100k_extrapulmonary = cases_extrapulmonary/population_without_inst_ship*100000)`summarise()` has grouped output by 'year', 'year2', 'y_num'. You can override using the `.groups` argument.Joining with `by = join_by(year)`7. Pulmonary TB model
7.1 Fit the model and priors
This models the case notification rate over time, with a step change for the intervention, and slope change after the intervention.
Work on the priors a bit. We will build up from less complex to more complex.
- intercept only, to predict count of cases
at the intercept, we expect somewhere around 2500. We will set the standard deviation to both 0.5 and 1 to check what it looks like
c(prior(lognormal(7.600902, 0.5)), #log(2500) = 7.600902
prior(lognormal(7.600902, 1))) %>%
parse_dist() %>%
ggplot(aes(y = prior, dist = .dist, args = .args)) +
stat_halfeye(.width = c(.5, .95)) +
scale_y_discrete(NULL, labels = str_c("lognormal(log(2000), ", c(0.5, 1), ")"),
expand = expansion(add = 0.1)) +
xlab(expression(exp(italic(p)(beta[0])))) +
coord_cartesian(xlim = c(0,15000))
prior(gamma(1, 0.01)) %>%
parse_dist() %>%
ggplot(aes(y=prior, dist = .dist, args = .args)) +
stat_halfeye(.width = c(0.5, 0.95))
#now fit to a model, and plot some prior realisations
m_prior1 <- brm(
cases ~ 0 + Intercept,
family = negbinomial(),
data = overall_scaffold,
sample_prior = "only",
prior = prior(normal(log(2000), 0.5), class = b, coef = Intercept) +
prior(gamma(1, 0.01), class = shape)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 1.3e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.13 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.014 seconds (Warm-up)
Chain 1: 0.014 seconds (Sampling)
Chain 1: 0.028 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 2e-06 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.016 seconds (Warm-up)
Chain 2: 0.015 seconds (Sampling)
Chain 2: 0.031 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 2e-06 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.015 seconds (Warm-up)
Chain 3: 0.016 seconds (Sampling)
Chain 3: 0.031 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 2e-06 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.014 seconds (Warm-up)
Chain 4: 0.015 seconds (Sampling)
Chain 4: 0.029 seconds (Total)
Chain 4: add_epred_draws(object=m_prior1,
newdata = tibble(intercept=1)) %>%
ggplot(aes(x=intercept, y=.epred)) +
stat_halfeye() +
scale_y_log10(labels = comma)
NA
NANow try to add in a term for the effect of y_num. We anticpate that the number of cases will decline by about 1-5% per year. However, as we are pretty uncertain about this, we will just encode a weakly regularising prior to restrict the year size to sensible ranges.
m_prior2 <- brm(
cases ~ 0 + Intercept + y_num,
family = negbinomial(),
data = overall_scaffold,
sample_prior = "only",
prior = prior(normal(log(2000), 0.5), class = b, coef = Intercept) +
prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.01), class = b, coef = y_num)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 1.3e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.13 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.034 seconds (Warm-up)
Chain 1: 0.015 seconds (Sampling)
Chain 1: 0.049 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 2e-06 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.043 seconds (Warm-up)
Chain 2: 0.019 seconds (Sampling)
Chain 2: 0.062 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 3e-06 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.039 seconds (Warm-up)
Chain 3: 0.017 seconds (Sampling)
Chain 3: 0.056 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 3e-06 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.046 seconds (Warm-up)
Chain 4: 0.017 seconds (Sampling)
Chain 4: 0.063 seconds (Total)
Chain 4: add_epred_draws(object=m_prior2,
newdata = overall_scaffold) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma)
Now we want to add in a prior for the effect of the acf_intervention. We anticipate the peak to be anywhere between no effect, and a tripling
m_prior3 <- brm(
cases ~ 0 + Intercept + y_num + acf_period,
family = negbinomial(),
data = overall_scaffold,
sample_prior = "only",
prior = prior(normal(log(2000), 0.5), class = b, coef = Intercept) +
prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.01), class = b, coef = y_num) +
prior(normal(0, 0.001), class = b)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 1.4e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.14 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.126 seconds (Warm-up)
Chain 1: 0.032 seconds (Sampling)
Chain 1: 0.158 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 3e-06 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.111 seconds (Warm-up)
Chain 2: 0.034 seconds (Sampling)
Chain 2: 0.145 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 3e-06 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.118 seconds (Warm-up)
Chain 3: 0.032 seconds (Sampling)
Chain 3: 0.15 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 2e-06 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.096 seconds (Warm-up)
Chain 4: 0.046 seconds (Sampling)
Chain 4: 0.142 seconds (Total)
Chain 4: add_epred_draws(object=m_prior3,
newdata = overall_scaffold) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(labels = comma)
NA
NA
NANow we look and see what it looks like with the interactions
m_prior4 <- brm(
cases ~ 0 + Intercept + y_num + acf_period + y_num:acf_period,
family = negbinomial(),
data = overall_scaffold,
sample_prior = "only",
prior = prior(normal(log(2500), 1), class = b, coef = Intercept) +
prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.01), class = b)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 1.5e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.15 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.046 seconds (Warm-up)
Chain 1: 0.023 seconds (Sampling)
Chain 1: 0.069 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 3e-06 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.047 seconds (Warm-up)
Chain 2: 0.025 seconds (Sampling)
Chain 2: 0.072 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 3e-06 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.03 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.052 seconds (Warm-up)
Chain 3: 0.025 seconds (Sampling)
Chain 3: 0.077 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 2e-06 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.02 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.048 seconds (Warm-up)
Chain 4: 0.023 seconds (Sampling)
Chain 4: 0.071 seconds (Total)
Chain 4: add_epred_draws(object=m_prior4,
newdata = overall_scaffold) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma)
NA
NA
NANow try adding in the random intercepts
c(prior(lognormal(3.912023, 0.5)), #log(50) = 3.912023
prior(lognormal(3.912023, 1))) %>%
parse_dist() %>%
ggplot(aes(y = prior, dist = .dist, args = .args)) +
stat_halfeye(.width = c(.5, .95)) +
scale_y_discrete(NULL, labels = str_c("lognormal(log(50), ", c(0.5, 1), ")"),
expand = expansion(add = 0.1)) +
xlab(expression(exp(italic(p)(beta[0])))) +
coord_cartesian(xlim = c(0,400))
m_prior5 <- brm(
cases ~ y_num + acf_period + y_num:acf_period + ( 1 | ward),
family = negbinomial(),
data = mdata,
sample_prior = "only",
prior = prior(normal(log(50), 1), class = Intercept) +
prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.01), class = b) +
prior(exponential(1), class=sd)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 4.1e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.41 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.318 seconds (Warm-up)
Chain 1: 0.057 seconds (Sampling)
Chain 1: 0.375 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 1e-05 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.1 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.353 seconds (Warm-up)
Chain 2: 0.063 seconds (Sampling)
Chain 2: 0.416 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 1e-05 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.1 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.301 seconds (Warm-up)
Chain 3: 0.078 seconds (Sampling)
Chain 3: 0.379 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 8e-06 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.08 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.307 seconds (Warm-up)
Chain 4: 0.054 seconds (Sampling)
Chain 4: 0.361 seconds (Total)
Chain 4: add_epred_draws(object=m_prior5,
newdata = mdata,
re_formula = NA) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma)
add_epred_draws(object=m_prior5,
newdata = mdata,
re_formula = NA) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma) +
facet_wrap(ward~.)
And add in the random slopes
m_prior6 <- brm(
cases ~ 1 + y_num + acf_period + y_num:acf_period + (1 + y_num*acf_period | ward),
family = negbinomial(),
data = mdata,
sample_prior = "only",
prior = prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.1), class = b) +
prior(exponential(1), class=sd) +
prior(lkj(2), class=cor)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 8.7e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.87 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 0.485 seconds (Warm-up)
Chain 1: 0.39 seconds (Sampling)
Chain 1: 0.875 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 2.3e-05 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.23 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 0.4 seconds (Warm-up)
Chain 2: 0.334 seconds (Sampling)
Chain 2: 0.734 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 2.5e-05 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.25 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 0.397 seconds (Warm-up)
Chain 3: 0.335 seconds (Sampling)
Chain 3: 0.732 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 2.7e-05 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.27 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 0.383 seconds (Warm-up)
Chain 4: 0.321 seconds (Sampling)
Chain 4: 0.704 seconds (Total)
Chain 4: m_prior6 <- brm(
cases ~ 0 + Intercept + y_num + acf_period + y_num:acf_period + ( y_num*acf_period | ward),
family = negbinomial(),
data = mdata,
sample_prior = "only",
prior = prior(normal(log(50), 1), class = b, coef = Intercept) +
prior(gamma(1, 0.01), class = shape) +
prior(normal(0, 0.01), class = b) +
prior(exponential(100), class=sd) +
prior(lkj(2), class=cor)
)Compiling Stan program...
Start sampling
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 7.8e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.78 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 1.125 seconds (Warm-up)
Chain 1: 0.361 seconds (Sampling)
Chain 1: 1.486 seconds (Total)
Chain 1:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 2.8e-05 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.28 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 1.073 seconds (Warm-up)
Chain 2: 0.332 seconds (Sampling)
Chain 2: 1.405 seconds (Total)
Chain 2:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 5e-05 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.5 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 1.146 seconds (Warm-up)
Chain 3: 0.328 seconds (Sampling)
Chain 3: 1.474 seconds (Total)
Chain 3:
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 2.9e-05 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.29 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 1.24 seconds (Warm-up)
Chain 4: 0.331 seconds (Sampling)
Chain 4: 1.571 seconds (Total)
Chain 4: add_epred_draws(object=m_prior6,
newdata = mdata,
re_formula = NA) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma)
add_epred_draws(object=m_prior6,
newdata = mdata,
re_formula = ~( 1 + y_num + acf_period | ward)) %>%
ggplot(aes(x=year, y=.epred)) +
stat_halfeye() +
scale_y_log10(label=comma) +
facet_wrap(ward~.)
plot_counterfactual(model_data = overall_scaffold, model=m_prior6, outcome = inc_100k,
population_denominator = population_without_inst_ship, re_formula = NA)
plot_counterfactual(model_data = mdata, model=m_prior6, outcome = inc_100k,
population_denominator = population_without_inst_ship, grouping_var = ward, ward,
re_formula = ~( 1 + y_num + acf_period | ward))
Issue here is the non-centred parameterisation of the intercept prior… Feel like this is a more interpretable way to set priors… but will revert to centred parameterisation for the meantime.
Look at the mean and variance of counts (counts of pulmonary notifications are what we are predicting)
#Mean of counts per year
mean(mdata$cases)[1] 48.32819#variance of counts per year
var(mdata$cases)[1] 915.5749Quite a bit of over-dispersion here, so negative binomial distribution might be a better choice of distributional family than Poisson.
Fit the model with the data
prior_summary(m_pulmonary)
prior class coef group resp dpar nlpar lb ub source
normal(0, 1) b user
normal(0, 1) b acf_periodb.acf (vectorized)
normal(0, 1) b acf_periodc.postMacf (vectorized)
normal(0, 1) b y_num (vectorized)
normal(0, 1) b y_num:acf_periodb.acf (vectorized)
normal(0, 1) b y_num:acf_periodc.postMacf (vectorized)
normal(0, 1000) Intercept user
lkj_corr_cholesky(2) L user
lkj_corr_cholesky(2) L ward (vectorized)
exponential(1) sd 0 user
exponential(1) sd ward 0 (vectorized)
exponential(1) sd acf_periodb.acf ward 0 (vectorized)
exponential(1) sd acf_periodc.postMacf ward 0 (vectorized)
exponential(1) sd Intercept ward 0 (vectorized)
exponential(1) sd y_num ward 0 (vectorized)
exponential(1) sd y_num:acf_periodb.acf ward 0 (vectorized)
exponential(1) sd y_num:acf_periodc.postMacf ward 0 (vectorized)
gamma(0.01, 0.01) shape 0 user7.2 Summarise change in CNRs
Summarise the posterior in graphical form
Make this into a figure combined with the map of empirical data
ggsave(here("figures/f1.png"))
Saving 7 x 7 in imageSummary of change in notifications numerically
7.3 Compared to counterfactual
Numbers of pulmonary TB cases averted compared to counterfactual per year.
Total pulmonary TB cases averted between 1958 and 1963
7.4 Correlation between RR.peak, RR.level, and RR.slope
What are the correlations between peak, level, and slope?
#RR.peak histogram
a <- overall_change$peak_draws %>%
ggplot() +
geom_histogram(aes(x=estimate), fill="darkblue", colour="darkblue", alpha=0.3)+
scale_fill_gradient(high="lightblue1",low="darkblue") +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA)) +
labs(x="RR.peak",
y="")
#RR. level histogram
b <- overall_change$level_draws %>%
ggplot() +
geom_histogram(aes(x=estimate), fill="darkblue", colour="darkblue", alpha=0.3)+
scale_fill_gradient(high="lightblue1",low="darkblue") +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA)) +
labs(x="RR.level",
y="")
#RR.slope histogram
c <- overall_change$slope_draws %>%
ggplot() +
geom_histogram(aes(x=estimate), fill="darkblue", colour="darkblue", alpha=0.3)+
scale_fill_gradient(high="lightblue1",low="darkblue") +
scale_x_continuous(limits = c(0, 6)) +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA)) +
labs(x="RR.slope",
y="")
#Correlation between RR.peak and RR.level
cor_rr_peak_rr_level <- round(cor(pluck(overall_change$peak_draws$estimate), pluck(overall_change$level_draws$estimate)), digits = 2)
#Correlation between RR.peak and RR.slope
cor_rr_peak_rr_slope <- round(cor(pluck(overall_change$peak_draws$estimate), pluck(overall_change$slope_draws$estimate)), digits = 2)
#Correlation between RR.level and RR.slope
cor_rr_level_rr_slope <- round(cor(pluck(overall_change$level_draws$estimate), pluck(overall_change$slope_draws$estimate)), digits = 2)
#plot of correlation between RR.peak and RR.level
d <- bind_cols(RR.peak=pluck(overall_change$peak_draws$estimate),
RR.level =pluck(overall_change$level_draws$estimate)) %>%
ggplot(aes(y=RR.peak, x = RR.level)) +
geom_hex() +
geom_smooth(se=FALSE, colour="firebrick", method = "lm") +
geom_text(aes(y=2.2, x=0.58, label=cor_rr_peak_rr_level), colour="firebrick") +
scale_fill_gradient(high="lightblue1",low="darkblue") +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA))
#plot of correlation between RR.peak and RR.slope
e <- bind_cols(RR.peak=pluck(overall_change$peak_draws$estimate),
RR.slope =pluck(overall_change$slope_draws$estimate)) %>%
ggplot(aes(y=RR.peak, x = RR.slope)) +
geom_hex() +
geom_smooth(se=FALSE, colour="firebrick") +
geom_text(aes(y=2.1, x=0.5, label=cor_rr_peak_rr_slope), colour="firebrick") +
scale_x_continuous(limits = c(0, 6)) +
scale_fill_gradient(high="lightblue1",low="darkblue") +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA))
#plot of correlation between RR.level and RR.slope
f <- bind_cols(RR.level=pluck(overall_change$level_draws$estimate),
RR.slope =pluck(overall_change$slope_draws$estimate)) %>%
ggplot(aes(y=RR.level, x = RR.slope)) +
geom_hex() +
geom_smooth(se=FALSE, colour="firebrick") +
geom_text(aes(y=0.75, x=0.5, label=cor_rr_level_rr_slope), colour="firebrick") +
scale_x_continuous(limits = c(0, 6)) +
scale_fill_gradient(high="lightblue1",low="darkblue") +
theme_ggdist() +
theme(legend.position = "none",
panel.border = element_rect(colour = "grey78", fill=NA))
(plot_spacer() + plot_spacer() + c) /
(plot_spacer() + b + f) /
(a + d + e)
ggsave(here("figures/pulmonary_cors.pdf"), width=8, height=8)
NA
NA
NA7.5 Ward level pulmonary TB estimates
Plot the counterfactual at ward level
Summary of change in notifications at ward level
ggsave(here("figures/s4.png"), width = 10)
Saving 10 x 7 in imageCalculate the counterfactual per ward
ward_pulmonary_counterf <- calculate_counterfactual(model_data = mdata, model=m_pulmonary,
population_denominator = population_without_inst_ship,
grouping_var = ward, re_formula=~(1 + y_num*acf_period | ward))`summarise()` has grouped output by '.draw'. You can override using the `.groups` argument.`summarise()` has grouped output by '.draw'. You can override using the `.groups` argument.Joining with `by = join_by(year, population_without_inst_ship, .draw, ward)`Joining with `by = join_by(.draw, ward)`ward_pulmonary_counterf$counter_post %>%
mutate(across(c(cases_averted:cases_averted.upper, diff_inc100k:diff_inc100k.upper), number_format(accuracy = 0.1, big.mark = ","))) %>%
mutate(across(c(rr_inc100k:rr_inc100k.upper), number_format(accuracy = 0.01))) %>%
mutate(across(c(pct_change:pct_change.upper), percent, accuracy=0.1)) %>%
datatable()NA
NAOverall counterfactual per ward
ward_pulmonary_counterf$counter_post_overall %>%
mutate(across(c(cases_averted:cases_averted.upper), number_format(accuracy = 0.1, big.mark = ","))) %>%
mutate(across(c(pct_change:pct_change.upper), percent, accuracy=0.1)) %>%
datatable()NA8. Extra-pulmonary TB notifications
Now we will model the extra-pulmonary TB notification rate. Struggling a bit with negative binomial model, so revert to Poisson.
8.1 Fit the model
pp_check(m_extrapulmonary, type='ecdf_overlay')
Using 10 posterior draws for ppc type 'ecdf_overlay' by default.
8.2 Summary of change
Summarise in plot
Summarise numerically.
overall_change_extrapulmonary <- summarise_change(model_data=overall_scaffold, model=m_extrapulmonary,
population_denominator=population_without_inst_ship, grouping_var=NULL, re_formula = NA)
`summarise()` has grouped output by '.draw'. You can override using the `.groups` argument.#want to keep the summary estimates here
tokeep <- c("peak_summary", "level_summary", "slope_summary")
#want to keep the summary estimates here
tokeep <- c("peak_summary", "level_summary", "slope_summary")
#summary measures in a table
overall_change_extrapulmonary %>%
keep((names(.) %in% tokeep)) %>%
bind_rows() %>%
mutate(across(c(estimate:.upper), number, accuracy=0.01)) %>%
select(measure, everything()) %>%
datatable8.3 Compared to counterfactual
Numbers of extra-pulmonary TB cases averted overall.
Total extrapulmonary TB cases averted between 1958 and 1963
8.4 Ward-level extra-pulmonary summaries
Ward-level extra-pulmonary estimates in graphical form.
Numerical summary.
9. Age-sex model
9.1 FIt the model
Fit the model
(Not rewritten the functions for this yet)
m_age_sex <- brm(
cases ~ y_num + (acf_period)*(age*sex) + (acf_period:y_num)*(age*sex),
data = mdata_age_sex,
family = negbinomial(),
seed = 1234,
chains = 4, cores = 4,
prior = prior(normal(0,1000), class = Intercept) +
prior(gamma(0.01, 0.01), class = shape) +
prior(normal(0, 1), class = b))
Compiling Stan program...
Start samplingstarting worker pid=75566 on localhost:11591 at 14:42:53.681
starting worker pid=75580 on localhost:11591 at 14:42:53.885
starting worker pid=75594 on localhost:11591 at 14:42:54.061
starting worker pid=75608 on localhost:11591 at 14:42:54.236
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 1).
Chain 1:
Chain 1: Gradient evaluation took 6e-05 seconds
Chain 1: 1000 transitions using 10 leapfrog steps per transition would take 0.6 seconds.
Chain 1: Adjust your expectations accordingly!
Chain 1:
Chain 1:
Chain 1: Iteration: 1 / 2000 [ 0%] (Warmup)
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 2).
Chain 2:
Chain 2: Gradient evaluation took 6.4e-05 seconds
Chain 2: 1000 transitions using 10 leapfrog steps per transition would take 0.64 seconds.
Chain 2: Adjust your expectations accordingly!
Chain 2:
Chain 2:
Chain 2: Iteration: 1 / 2000 [ 0%] (Warmup)
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 3).
Chain 3:
Chain 3: Gradient evaluation took 6.2e-05 seconds
Chain 3: 1000 transitions using 10 leapfrog steps per transition would take 0.62 seconds.
Chain 3: Adjust your expectations accordingly!
Chain 3:
Chain 3:
Chain 3: Iteration: 1 / 2000 [ 0%] (Warmup)
SAMPLING FOR MODEL 'anon_model' NOW (CHAIN 4).
Chain 4:
Chain 4: Gradient evaluation took 6.4e-05 seconds
Chain 4: 1000 transitions using 10 leapfrog steps per transition would take 0.64 seconds.
Chain 4: Adjust your expectations accordingly!
Chain 4:
Chain 4:
Chain 4: Iteration: 1 / 2000 [ 0%] (Warmup)
Chain 1: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 2: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 3: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 4: Iteration: 200 / 2000 [ 10%] (Warmup)
Chain 1: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 3: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 1: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 4: Iteration: 400 / 2000 [ 20%] (Warmup)
Chain 2: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 1: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 2: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 4: Iteration: 600 / 2000 [ 30%] (Warmup)
Chain 3: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 1: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 1: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 2: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 2: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 4: Iteration: 800 / 2000 [ 40%] (Warmup)
Chain 3: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 3: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 1: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 4: Iteration: 1000 / 2000 [ 50%] (Warmup)
Chain 4: Iteration: 1001 / 2000 [ 50%] (Sampling)
Chain 3: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 2: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 4: Iteration: 1200 / 2000 [ 60%] (Sampling)
Chain 1: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 3: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 2: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 4: Iteration: 1400 / 2000 [ 70%] (Sampling)
Chain 1: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 3: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 2: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 4: Iteration: 1600 / 2000 [ 80%] (Sampling)
Chain 1: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 3: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 2: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 2:
Chain 2: Elapsed Time: 14.832 seconds (Warm-up)
Chain 2: 16.136 seconds (Sampling)
Chain 2: 30.968 seconds (Total)
Chain 2:
Chain 4: Iteration: 1800 / 2000 [ 90%] (Sampling)
Chain 1: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 1:
Chain 1: Elapsed Time: 15.619 seconds (Warm-up)
Chain 1: 17.991 seconds (Sampling)
Chain 1: 33.61 seconds (Total)
Chain 1:
Chain 3: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 3:
Chain 3: Elapsed Time: 14.677 seconds (Warm-up)
Chain 3: 17.705 seconds (Sampling)
Chain 3: 32.382 seconds (Total)
Chain 3:
Chain 4: Iteration: 2000 / 2000 [100%] (Sampling)
Chain 4:
Chain 4: Elapsed Time: 15.868 seconds (Warm-up)
Chain 4: 16.404 seconds (Sampling)
Chain 4: 32.272 seconds (Total)
Chain 4: Summarise posterior
#posterior draws, and summarise
age_sex_summary <- mdata_age_sex %>%
select(year, year2, y_num, acf_period, age, sex) %>%
add_epred_draws(m_age_sex) %>%
group_by(year2, acf_period, age, sex) %>%
mean_qi() %>%
mutate(acf_period = case_when(acf_period=="a. pre-acf" ~ "Before Intervention",
acf_period=="c. post-acf" ~ "Post Intervention"))
#create the counterfactual (no intervention), and summarise
age_sex_counterfact <-
tibble(year = mdata_age_sex$year,
year2 = mdata_age_sex$year2,
y_num = mdata_age_sex$y_num,
age = mdata_age_sex$age,
sex = mdata_age_sex$sex,
acf_period = factor("a. pre-acf")) %>%
add_epred_draws(m_age_sex) %>%
group_by(year2, acf_period, age, sex) %>%
mean_qi() %>%
mutate(acf_period = case_when(acf_period=="a. pre-acf" ~ "Before Intervention",
acf_period=="c. post-acf" ~ "Post Intervention")) %>%
ungroup() %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
mutate(sex = case_when(sex== "M" ~ "Male",
sex== "F" ~ "Female"))
age_sex_summary %>%
ungroup() %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
mutate(sex = case_when(sex== "M" ~ "Male",
sex== "F" ~ "Female")) %>%
ggplot() +
geom_ribbon(aes(ymin=.epred.lower, ymax=.epred.upper, x=year2, group = acf_period, fill=acf_period), alpha=0.5) +
geom_ribbon(data = age_sex_counterfact %>% filter(year>=1956),
aes(ymin=.epred.lower, ymax=.epred.upper, x=year2, fill="Counterfactual"), alpha=0.5) +
geom_line(data = age_sex_counterfact %>% filter(year>=1956),
aes(y=.epred, x=year2, colour="Counterfactual")) +
geom_line(aes(y=.epred, x=year2, group=acf_period, colour=acf_period)) +
geom_point(data = mdata_age_sex %>%
ungroup() %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
mutate(sex = case_when(sex== "M" ~ "Male",
sex== "F" ~ "Female")) , aes(y=cases, x=year2, shape=acf_period), size=2) +
geom_vline(aes(xintercept=acf_end), linetype=3) +
ggh4x::facet_grid2(age~sex, scales = "free_y", independent = "y") +
theme_ggdist() +
scale_y_continuous(labels=comma) +
scale_x_continuous(labels = year_labels,
breaks = year_labels,
guide = guide_axis(angle = 90)) +
scale_fill_manual(values = c("#DE0D92", "grey50", "#4D6CFA") , name="") +
scale_colour_manual(values = c("#DE0D92", "grey50", "#4D6CFA") , name="") +
scale_shape_discrete(name="") +
labs(
x = "Year",
y = "Case notifications (n)",
caption = "Mass miniature X-ray campaign period between dashed lines (11th March-12th April 1957)"
) +
theme(legend.position = "bottom",
panel.border = element_rect(colour = "grey78", fill=NA),
title = element_text(size=14),
axis.text = element_text(size=14),
legend.text = element_text(size=12)) +
guides(shape="none")
ggsave(here("figures/s7.png"), height=10)Saving 7.29 x 10 in image
9.2 Summary of impact of intervention
(This all needs tidying up and checking - to do!)
- percentage increase in CNR, from 1956 to 1957 (i.e. immediate ACF effect)
nd <- mdata_age_sex %>%
filter(year %in% c(1956:1957)) %>%
select(acf_period, y_num, age, sex)
age_sex_impact_out <-
add_epred_draws(m_age_sex,
newdata=nd) %>%
ungroup() %>%
select(acf_period, .epred, age, sex) %>%
pivot_wider(names_from = acf_period,
values_from = .epred,
values_fn = list) %>%
unnest() %>%
rename(pre_epred = 3,
post_epred = 4) %>%
mutate(acf_diff = post_epred-pre_epred,
acf_rr = post_epred/pre_epred) %>%
group_by(age, sex) %>%
mean_qi(acf_diff, acf_rr) Warning: `cols` is now required when using `unnest()`.
ℹ Please use `cols = c(`a. pre-acf`, `b. acf`)`.age_sex_impact_out %>%
mutate_if(is.double, ~ scales::number(x = ., accuracy = 0.01, big.mark = ",")) %>%
datatable()`mutate_if()` ignored the following grouping variables:
f3a <- age_sex_impact_out %>%
mutate(sex = case_when(sex=="M" ~ "Male",
sex=="F" ~ "Female")) %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
ggplot() +
geom_pointrange(aes(y=acf_rr, ymin=acf_rr.lower, ymax=acf_rr.upper, group=sex,
x=age,
colour = sex),
position = position_dodge(width = 0.25)) +
geom_hline(aes(yintercept=1), linetype=2) +
scale_colour_manual(values = c("purple", "darkorange"), name="") +
labs(x="",
y="Relative notifications (95% UI)\nACF (1957) vs. Before ACF (1956)") +
theme_ggdist() +
theme(legend.position = "bottom",
panel.border = element_rect(colour = "grey78", fill=NA))
- Change from pre-ACF period (1956), to first year post-ACF (1958)
nd <- mdata_age_sex %>%
filter(year %in% c(1956,1958)) %>%
select(acf_period, y_num, age, sex)
#Do it with calculating incidence, then sumamrising.
age_sex_impact2 <-add_epred_draws(m_age_sex,
newdata=nd) %>%
ungroup() %>%
select(acf_period, .epred, age, sex) %>%
pivot_wider(names_from = acf_period,
values_from = .epred,
values_fn = list) %>%
unnest() %>%
rename(pre_epred = 3,
post_epred = 4) %>%
mutate(acf_diff = post_epred-pre_epred,
acf_rr = post_epred/pre_epred) %>%
group_by(age, sex) %>%
mean_qi(acf_diff, acf_rr) Warning: `cols` is now required when using `unnest()`.
ℹ Please use `cols = c(`a. pre-acf`, `c. post-acf`)`.age_sex_impact2 %>%
mutate_if(is.double, ~ scales::number(x = ., accuracy = 0.01, big.mark = ",")) %>%
datatable()`mutate_if()` ignored the following grouping variables:f3b <- age_sex_impact2 %>%
mutate(sex = case_when(sex=="M" ~ "Male",
sex=="F" ~ "Female")) %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
ggplot() +
geom_pointrange(aes(y=acf_rr, ymin=acf_rr.lower, ymax=acf_rr.upper, group=sex,
x=age,
colour = sex),
position = position_dodge(width = 0.25)) +
geom_hline(aes(yintercept=1), linetype=2) +
scale_colour_manual(values = c("purple", "darkorange"), name="") +
labs(x="",
y="Relative notifications (95% UI)\nACF (1958) vs. Before ACF (1956)") +
theme_ggdist() +
theme(legend.position = "bottom",
panel.border = element_rect(colour = "grey78", fill=NA))
- Change in slope (i.e. difference in mean annual case notification rate pre-Intervention vs. post-intervention, by ward)
age_sex_impact3 <- mdata_age_sex %>%
select(year, year2, y_num, acf_period, cases, age, sex) %>%
filter(year!=1957) %>%
add_epred_draws(m_age_sex) %>%
group_by(year, age, sex, acf_period) %>%
mean_qi(.epred) %>%
ungroup() %>%
mutate(n_years = length(year), .by=acf_period) %>%
summarise(pct_change_epred_overall = (((last(.epred) - first(.epred))/first(.epred))),
pct_change_lower_overall = (((last(.lower) - first(.lower))/first(.lower))),
pct_change_upper_overall = (((last(.upper) - first(.upper))/first(.upper))),
pct_change_epred_annual = (((last(.epred) - first(.epred))/first(.epred))/n_years),
pct_change_lower_annual = (((last(.lower) - first(.lower))/first(.lower))/n_years),
pct_change_upper_annual = (((last(.upper) - first(.upper))/first(.upper))/n_years),
.by = c(acf_period, age, sex)) %>%
distinct()Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in dplyr 1.1.0.
Please use `reframe()` instead.
When switching from `summarise()` to `reframe()`, remember that `reframe()` always returns an ungrouped data frame and adjust accordingly.age_sex_impact3 %>%
mutate_if(is.double, percent) %>%
datatable()
f3c <- age_sex_impact3 %>%
mutate(sex = case_when(sex=="M" ~ "Male",
sex=="F" ~ "Female")) %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
ggplot() +
geom_hline(aes(yintercept=0), linetype=2) +
geom_pointrange(aes(y=pct_change_epred_annual, ymin=pct_change_lower_annual, ymax=pct_change_upper_annual, group=acf_period,
x=age,
colour = acf_period), size=0.1) +
scale_y_continuous(labels =percent) +
facet_grid(.~sex) +
coord_flip() +
scale_colour_manual(values = c("#DE0D92", "#4D6CFA")) +
labs(x="",
y="Mean annual rate of change in case notification rate (95% UI)\n Before ACF (1950-1956) vs. after ACF (1958-1963)",
colour="") +
theme_ggdist() +
theme(panel.border = element_rect(colour = "grey78", fill=NA))
f3c
9.3 Compared to counterfactual
counterfact_age_sex <-
add_epred_draws(object = m_age_sex,
newdata = mdata_age_sex %>%
select(year, year2, y_num, age, sex) %>%
mutate(acf_period = "a. pre-acf")) %>%
filter(year>1957) %>%
select(year, age, sex, .draw, .epred_counterf = .epred)Adding missing grouping variables: `year2`, `y_num`, `acf_period`, `.row`
#Calcuate incidence per draw, then summarise.
post_change_age_sex <-
add_epred_draws(object = m_age_sex,
newdata = mdata_age_sex %>%
select(year, year2, y_num, age, sex, acf_period)) %>%
filter(year>1957) %>%
ungroup() %>%
select(year, age, sex, .draw, .epred)
#for the overall period
counterfact_overall_age_sex <-
add_epred_draws(object = m_age_sex,
newdata = mdata_age_sex %>%
select(year, year2, y_num, age, sex) %>%
mutate(acf_period = "a. pre-acf")) %>%
filter(year>1957) %>%
select(age, sex, .draw, .epred) %>%
group_by(age, sex, .draw) %>%
summarise(.epred_counterf = sum(.epred)) %>%
mutate(year = "Overall (1958-1963)")Adding missing grouping variables: `year`, `year2`, `y_num`, `acf_period`, `.row``summarise()` has grouped output by 'age', 'sex'. You can override using the `.groups` argument.
#Calcuate incidence per draw, then summarise.
post_change_overall_age_sex <-
add_epred_draws(object = m_age_sex,
newdata = mdata_age_sex %>%
select(year, year2, y_num, age, sex, acf_period)) %>%
filter(year>1957) %>%
select(age, sex, .draw, .epred) %>%
group_by(.draw, age, sex) %>%
summarise(.epred = sum(.epred)) Adding missing grouping variables: `year`, `year2`, `y_num`, `acf_period`, `.row``summarise()` has grouped output by '.draw', 'age'. You can override using the `.groups` argument.
left_join(counterfact_age_sex, post_change_age_sex) %>%
mutate(cases_averted = .epred_counterf-.epred,
pct_change = (.epred - .epred_counterf)/.epred_counterf) %>%
group_by(year, age, sex) %>%
mean_qi(cases_averted, pct_change) %>%
ungroup() %>%
datatable()Joining with `by = join_by(year, age, sex, .draw)`counter_post_overall_age_sex <-
left_join(counterfact_overall_age_sex, post_change_overall_age_sex) %>%
mutate(cases_averted = .epred_counterf-.epred,
pct_change = (.epred - .epred_counterf)/.epred_counterf) %>%
group_by(age, sex) %>%
mean_qi(cases_averted, pct_change) %>%
ungroup() %>%
mutate(year = "Overall (1958-1963)") Joining with `by = join_by(age, sex, .draw)`
age_sex_txt <- counter_post_overall_age_sex %>%
mutate(across(c(cases_averted:cases_averted.upper), number_format(accuracy = 0.1, big.mark = ","))) %>%
mutate(across(c(pct_change:pct_change.upper), percent, accuracy=0.1)) %>%
transmute(year = as.character(year),
sex = sex,
age = age,
cases_averted = glue::glue("{cases_averted}\n({cases_averted.lower} to {cases_averted.upper})"),
pct_change = glue::glue("{pct_change}\n({pct_change.lower} to {pct_change.upper})"))
age_sex_txt %>% datatable()NA
NA
f3d <- counter_post_overall_age_sex %>%
mutate(sex = case_when(sex=="M" ~ "Male",
sex=="F" ~ "Female")) %>%
mutate(age = case_when(age=="00_05" ~ "0 to 5y",
age=="06_15" ~ "06 to 15y",
age=="16_25" ~ "16 to 25y",
age=="26_35" ~ "26 to 35y",
age=="36_45" ~ "36 to 45y",
age=="46_55" ~ "46 to 55y",
age=="56_65" ~ "56 to 65y",
age=="65+" ~ "65 & up y")) %>%
ggplot() +
geom_pointrange(aes(x = age, y=cases_averted, ymin=cases_averted.lower, ymax=cases_averted.upper, colour=sex)) +
facet_grid(.~sex) +
coord_flip() +
scale_colour_manual(values = c("purple", "darkorange"), name="") +
scale_y_continuous(labels = comma) +
labs(x="",
y="Number (95% UI) of TB cases averted (1958-1963)",
colour="") +
theme_ggdist() +
theme(panel.border = element_rect(colour = "grey78", fill=NA),
legend.position = "none")
f3d
Join together for Figure 2.
(f3a + f3b) / (f3c + f3d) + plot_annotation(tag_levels = "A")
ggsave(here("figures/f3.png"), width = 12)Saving 12 x 4.51 in image
mdata_age_sex
LS0tCnRpdGxlOiAiR2xhc2dvdyBUQiBBQ0YiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCiMjIyAxLiBMaWJyYXJpZXMgYW5kIGZ1bmN0aW9ucwoKIyMjIyAxLjEgTGlicmFyaWVzCgpMb2FkIHRoZSByZXF1aXJlZCBsaWJyYXJpZXMuCgpgYGB7ciwgbWVzc2FnZT1GLCB3YXJuaW5nPUZ9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KGhlcmUpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHNjYWxlcykKbGlicmFyeShEVCkKbGlicmFyeShicm1zKQpsaWJyYXJ5KHRpZHliYXllcykKbGlicmFyeShwYXRjaHdvcmspCmxpYnJhcnkobWFyZ2luYWxlZmZlY3RzKQpsaWJyYXJ5KGdncmVwZWwpCmxpYnJhcnkoc2NpY28pCmxpYnJhcnkoZ2dkZW5zaXR5KQpsaWJyYXJ5KGdncHVicikKbGlicmFyeSh1bml0cykKI2xpYnJhcnkoZ2dzbikKCmBgYAoKIyMjIyAxLjIgSGVscGVyIGZ1bmN0aW9ucwoKRnVuY3Rpb25zIHRoYXQgd2Ugd2lsbCB1c2UgdGhyb3VnaG91dCB0aGUgc2NyaXB0CgpgYGB7cn0KI2xhYmVsbGVyIGZvciB5ZWFycwp5ZWFyX2xhYmVscyA8LSBjKDE5NTA6MTk2MykKCiNUaGUgR2xhc2dvdyBtYXNzIG1pbnV0dXJlIGNoZXN0IFgtcmF5IGNhbXBhaWduIGhhcHBlbmVkIGJldHdlZW4gMTF0aCBNYXJjaCBhbmQgMTJ0aCBBcHJpbCAxOTU3CiNTZWdtZW50IGZvciBncmFwaHMgdG8gbWF0Y2ggQUNGIHBlcmlvZAphY2Zfc3RhcnQgPC0gZGVjaW1hbF9kYXRlKHltZCgiMTk1Ny0wMy0xMSIpKQphY2ZfZW5kIDwtIGRlY2ltYWxfZGF0ZSh5bWQoIjE5NTctMDQtMTIiKSkKCgpgYGAKCkZ1bmN0aW9uIGZvciBjb3VudGVyZmFjdHVhbCBwbG90cwoKYGBge3J9CgoKcGxvdF9jb3VudGVyZmFjdHVhbCA8LSBmdW5jdGlvbihtb2RlbF9kYXRhLCBtb2RlbCwgcG9wdWxhdGlvbl9kZW5vbWluYXRvciwgb3V0Y29tZSwgZ3JvdXBpbmdfdmFyPU5VTEwsIHJlX2Zvcm11bGEsLi4uKXsKICAKICAjbGFiZWxsZXIgZm9yIHllYXJzCiAgeWVhcl9sYWJlbHMgPC0gYygxOTUwOjE5NjMpCgogICNUaGUgR2xhc2dvdyBtYXNzIG1pbnV0dXJlIGNoZXN0IFgtcmF5IGNhbXBhaWduIGhhcHBlbmVkIGJldHdlZW4gMTF0aCBNYXJjaCBhbmQgMTJ0aCBBcHJpbCAxOTU3CiAgI1NlZ21lbnQgZm9yIGdyYXBocyB0byBtYXRjaCBBQ0YgcGVyaW9kCiAgYWNmX3N0YXJ0IDwtIGRlY2ltYWxfZGF0ZSh5bWQoIjE5NTctMDMtMTEiKSkKICBhY2ZfZW5kIDwtIGRlY2ltYWxfZGF0ZSh5bWQoIjE5NTctMDQtMTIiKSkKCiAgc3VtbWFyeSA8LSB7e21vZGVsX2RhdGF9fSAlPiUKICAgIHNlbGVjdCh5ZWFyLCB5ZWFyMiwgeV9udW0sIGFjZl9wZXJpb2QsIHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB7e291dGNvbWV9fSwge3tncm91cGluZ192YXJ9fSkgJT4lCiAgICBhZGRfZXByZWRfZHJhd3Moe3ttb2RlbH19LCByZV9mb3JtdWxhPXt7cmVfZm9ybXVsYX19KSAlPiUKICAgIGdyb3VwX2J5KHllYXIyLCBhY2ZfcGVyaW9kLCB7e2dyb3VwaW5nX3Zhcn19KSAlPiUKICAgIG1lYW5fcWkoKSAlPiUKICAgIG11dGF0ZSguZXByZWRfaW5jID0gLmVwcmVkL3t7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19KjEwMDAwMCwKICAgICAgICAgIC5lcHJlZF9pbmMubG93ZXIgPSAuZXByZWQubG93ZXIve3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0qMTAwMDAwLAogICAgICAgICAgLmVwcmVkX2luYy51cHBlciA9IC5lcHJlZC51cHBlci97e3BvcHVsYXRpb25fZGVub21pbmF0b3J9fSoxMDAwMDApICU+JQogICAgbXV0YXRlKGFjZl9wZXJpb2QgPSBjYXNlX3doZW4oYWNmX3BlcmlvZD09ImEuIHByZS1hY2YiIH4gIkJlZm9yZSBJbnRlcnZlbnRpb24iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWNmX3BlcmlvZD09ImMuIHBvc3QtYWNmIiB+ICJQb3N0IEludGVydmVudGlvbiIpKQoKCgogICNjcmVhdGUgdGhlIGNvdW50ZXJmYWN0dWFsIChubyBpbnRlcnZlbnRpb24pLCBhbmQgc3VtbWFyaXNlCiAgCiAgY291bnRlcmZhY3QgPC0KICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSB7e21vZGVsfX0sCiAgICAgICAgICAgICAgICAgICAgbmV3ZGF0YSA9IHt7bW9kZWxfZGF0YX19ICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwge3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0sIHt7Z3JvdXBpbmdfdmFyfX0sIHt7b3V0Y29tZX19KSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG11dGF0ZShhY2ZfcGVyaW9kID0gImEuIHByZS1hY2YiKSwgcmVfZm9ybXVsYT17e3JlX2Zvcm11bGF9fSkgJT4lCiAgICBncm91cF9ieSh5ZWFyMiwgYWNmX3BlcmlvZCwge3tncm91cGluZ192YXJ9fSkgJT4lCiAgICBtZWFuX3FpKCkgJT4lCiAgICBtdXRhdGUoLmVwcmVkX2luYyA9IC5lcHJlZC97e3BvcHVsYXRpb25fZGVub21pbmF0b3J9fSoxMDAwMDAsCiAgICAgICAgIC5lcHJlZF9pbmMubG93ZXIgPSAuZXByZWQubG93ZXIve3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0qMTAwMDAwLAogICAgICAgICAuZXByZWRfaW5jLnVwcGVyID0gLmVwcmVkLnVwcGVyL3t7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19KjEwMDAwMCkgJT4lCiAgICBtdXRhdGUoYWNmX3BlcmlvZCA9IGNhc2Vfd2hlbihhY2ZfcGVyaW9kPT0iYS4gcHJlLWFjZiIgfiAiQmVmb3JlIEludGVydmVudGlvbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWNmX3BlcmlvZD09ImMuIHBvc3QtYWNmIiB+ICJQb3N0IEludGVydmVudGlvbiIpKQogIAoKCiAgI3Bsb3QgdGhlIGludGVydmVudGlvbiBlZmZlY3QKcCA8LSBzdW1tYXJ5ICU+JQogICAgZHJvcGxldmVscygpICU+JQogICAgZ2dwbG90KCkgKwogICAgZ2VvbV9yaWJib24oYWVzKHltaW49LmVwcmVkX2luYy5sb3dlciwgeW1heD0uZXByZWRfaW5jLnVwcGVyLCB4PXllYXIyLCBncm91cCA9IGFjZl9wZXJpb2QsIGZpbGw9YWNmX3BlcmlvZCksIGFscGhhPTAuNSkgKwogICAgZ2VvbV9yaWJib24oZGF0YSA9IGNvdW50ZXJmYWN0ICU+JSBmaWx0ZXIoeWVhcj49MTk1NiksIAogICAgICAgICAgICAgICAgYWVzKHltaW49LmVwcmVkX2luYy5sb3dlciwgeW1heD0uZXByZWRfaW5jLnVwcGVyLCB4PXllYXIyLCBmaWxsPSJDb3VudGVyZmFjdHVhbCIpLCBhbHBoYT0wLjUpICsKICAgIGdlb21fbGluZShkYXRhID0gY291bnRlcmZhY3QgJT4lIGZpbHRlcih5ZWFyPj0xOTU2KSwgCiAgICAgICAgICAgICAgYWVzKHk9LmVwcmVkX2luYywgeD15ZWFyMiwgY29sb3VyPSJDb3VudGVyZmFjdHVhbCIpKSArCiAgICBnZW9tX2xpbmUoYWVzKHk9LmVwcmVkX2luYywgeD15ZWFyMiwgZ3JvdXA9YWNmX3BlcmlvZCwgIGNvbG91cj1hY2ZfcGVyaW9kKSkgKwogICAgZ2VvbV9wb2ludChkYXRhID0ge3ttb2RlbF9kYXRhfX0sIGFlcyh5PXt7b3V0Y29tZX19LCB4PXllYXIyLCBzaGFwZT1hY2ZfcGVyaW9kKSwgc2l6ZT0yKSArCiAgICBnZW9tX3ZsaW5lKGFlcyh4aW50ZXJjZXB0PWFjZl9lbmQpLCBsaW5ldHlwZT0zKSArCiAgICB0aGVtZV9nZ2Rpc3QoKSArCiAgICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzPWNvbW1hLCBsaW1pdHMgPSBjKDAsTkEpKSArCiAgICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgICAgYnJlYWtzID0geWVhcl9sYWJlbHMpICsKICAgIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIiNERTBEOTIiLCAiZ3JleTUwIiwgIiM0RDZDRkEiKSAsIG5hbWU9IiIsIG5hLnRyYW5zbGF0ZSA9IEYpICsKICAgIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygiI0RFMEQ5MiIsICJncmV5NTAiLCAiIzRENkNGQSIpICwgbmFtZT0iIiwgbmEudHJhbnNsYXRlID0gRikgKwogICAgc2NhbGVfc2hhcGVfZGlzY3JldGUobmFtZT0iIiwgbmEudHJhbnNsYXRlID0gRikgKwogICAgbGFicygKICAgICAgeCA9ICJZZWFyIiwKICAgICAgeSA9ICJDYXNlIG5vdGlmaWNhdGlvbiByYXRlIChwZXIgMTAwLDAwMCkiLAogICAgICBjYXB0aW9uID0gIk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpIgogICAgKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSksCiAgICAgICAgICB0ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9OCksCiAgICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplPTgsIGFuZ2xlID0gOTAsIGhqdXN0PTEsIHZqdXN0PTAuNSksCiAgICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpKSArCiAgICBndWlkZXMoc2hhcGU9Im5vbmUiKQoKICAgIGZhY2V0X3ZhcnMgPC0gdmFycyguLi4pCgogIGlmIChsZW5ndGgoZmFjZXRfdmFycykgIT0gMCkgewogICAgcCA8LSBwICsgZmFjZXRfd3JhcChmYWNldF92YXJzKQogIH0KICBwCgp9CgpgYGAKCkZ1bmN0aW9uIGZvciBjYWxjdWxhdGluZyAgbWVhc3VyZXMgb2YgY2hhbmdlIG92ZXIgdGltZSAoUlIucGVhaywgUlIubGV2ZWwsIFJSLnNsb3BlKQoKCmBgYHtyfQoKc3VtbWFyaXNlX2NoYW5nZSA8LSBmdW5jdGlvbihtb2RlbF9kYXRhLCBtb2RlbCwgcG9wdWxhdGlvbl9kZW5vbWluYXRvciwgZ3JvdXBpbmdfdmFyID0gTlVMTCwgcmVfZm9ybXVsYSA9IE5VTEwpIHsKICAKICAjZnVuY3Rpb25zIGZvciBjYWxjdWxhdGluZyBSUi5wZWFrCiAgI2kuZS4gcmVsYXRpdmUgY2FzZSBub3RpZmljYXRpb24gcmF0ZSBpbiAxOTU3IHZzLiBjb3VudGVyZmFjdHVhbCB0cmVuZCBmb3IgMTk1NwogIAogIGdyb3VwaW5nX3ZhciA8LSBlbnF1byhncm91cGluZ192YXIpCiAgCiAgaWYgKCFpcy5udWxsKHt7Z3JvdXBpbmdfdmFyfX0pKSB7CiAgICAKICAgICNtYWtlIHRoZSBwcmVkaWN0aW9uIG1hdHJpeCwgY29uZGl0aW9uYWwgb24gd2hldGhlciB3ZSB3YW50IHJhbmRvbSBlZmZlY3RzIGluY2x1ZGVkIG9yIG5vdC4KICAgIG91dCA8LSBjcm9zc2luZyh7e21vZGVsX2RhdGF9fSAlPiUgCiAgICAgICAgICAgICAgICAgICAgICBzZWxlY3Qoe3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0sIHlfbnVtLCAhIWdyb3VwaW5nX3ZhcikgJT4lCiAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXIoeV9udW0gPT0gOCksCiAgICAgICAgICAgICAgICAgICAgYWNmX3BlcmlvZCA9IGMoImEuIHByZS1hY2YiLCAiYi4gYWNmIikKICAgICkKICB9IGVsc2UgewogICAgCiAgICBvdXQgPC0gY3Jvc3Npbmcoe3ttb2RlbF9kYXRhfX0gJT4lIAogICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB5X251bSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXIoeV9udW0gPT0gOCksCiAgICAgICAgICAgICAgICAgICAgYWNmX3BlcmlvZCA9IGMoImEuIHByZS1hY2YiLCAiYi4gYWNmIikKICAgICkKICB9CiAgCiAgcGVha19kcmF3cyA8LSBhZGRfZXByZWRfZHJhd3MobmV3ZGF0YSA9IG91dCwKICAgICAgICAgICAgICAgICAgb2JqZWN0ID0ge3ttb2RlbH19LAogICAgICAgICAgICAgICAgICByZV9mb3JtdWxhID0ge3tyZV9mb3JtdWxhfX0pICU+JQogICAgbXV0YXRlKGVwcmVkX2NuciA9IC5lcHJlZC9wb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwKjEwMDAwMCkgJT4lCiAgICBncm91cF9ieSguZHJhdywgISFncm91cGluZ192YXIpICU+JQogICAgc3VtbWFyaXNlKGVzdGltYXRlID0gbGFzdChlcHJlZF9jbnIpL2ZpcnN0KGVwcmVkX2NucikpICU+JQogICAgdW5ncm91cCgpICU+JQogICAgbXV0YXRlKG1lYXN1cmUgPSAiUlIucGVhayIpCiAgCiAgcGVha19zdW1tYXJ5IDwtIHBlYWtfZHJhd3MgJT4lCiAgICBncm91cF9ieSghIWdyb3VwaW5nX3ZhcikgJT4lCiAgICBtZWFuX3FpKGVzdGltYXRlKSAlPiUKICAgIG11dGF0ZShtZWFzdXJlID0gIlJSLnBlYWsiKQogIAogIAogICNmdW5jdGlvbnMgZm9yIGNhbGN1bGF0aW5nIFJSLnN0ZXAKICAjaS5lLiByZWxhdGl2ZSBjYXNlIG5vdGlmaWNhdGlvbiByYXRlIGluIDE5NTggdnMuIGNvdW50ZXJmYWN0dWFsIHRyZW5kIGZvciAxOTU4CiAgCiAgICBpZiAoIWlzLm51bGwoe3tncm91cGluZ192YXJ9fSkpIHsKICAgIG91dDIgPC0gY3Jvc3Npbmcoe3ttb2RlbF9kYXRhfX0gJT4lIAogICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB5X251bSwgISFncm91cGluZ192YXIpICU+JQogICAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHlfbnVtID09IDkpLAogICAgICAgICAgICAgICAgICAgIGFjZl9wZXJpb2QgPSBjKCJhLiBwcmUtYWNmIiwgImMuIHBvc3QtYWNmIikKICAgICkKICB9IGVsc2UgewogICAgCiAgICBvdXQyIDwtIGNyb3NzaW5nKHt7bW9kZWxfZGF0YX19ICU+JSAKICAgICAgICAgICAgICAgICAgICAgIHNlbGVjdCh7e3BvcHVsYXRpb25fZGVub21pbmF0b3J9fSwgeV9udW0pICU+JQogICAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHlfbnVtID09IDkpLAogICAgICAgICAgICAgICAgICAgIGFjZl9wZXJpb2QgPSBjKCJhLiBwcmUtYWNmIiwgImMuIHBvc3QtYWNmIikKICAgICkKICB9CiAgCiAgICBsZXZlbF9kcmF3cyA8LSBhZGRfZXByZWRfZHJhd3MobmV3ZGF0YSA9IG91dDIsCiAgICAgICAgICAgICAgICAgIG9iamVjdCA9IHt7bW9kZWx9fSwKICAgICAgICAgICAgICAgICAgcmVfZm9ybXVsYSA9IHt7cmVfZm9ybXVsYX19KSAlPiUKICAgIGFycmFuZ2UoeV9udW0sIC5kcmF3KSAlPiUKICAgIG11dGF0ZShlcHJlZF9jbnIgPSAuZXByZWQvcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCoxMDAwMDApICU+JQogICAgZ3JvdXBfYnkoLmRyYXcsICEhZ3JvdXBpbmdfdmFyKSAlPiUKICAgIHN1bW1hcmlzZShlc3RpbWF0ZSA9IGxhc3QoZXByZWRfY25yKS9maXJzdChlcHJlZF9jbnIpKSAlPiUKICAgIHVuZ3JvdXAoKSAlPiUKICAgIG11dGF0ZShtZWFzdXJlID0gIlJSLmxldmVsIikKICAKICBsZXZlbF9zdW1tYXJ5IDwtIGxldmVsX2RyYXdzICU+JQogICAgZ3JvdXBfYnkoISFncm91cGluZ192YXIpICU+JQogICAgbWVhbl9xaShlc3RpbWF0ZSkgJT4lCiAgICBtdXRhdGUobWVhc3VyZSA9ICJSUi5sZXZlbCIpCiAgICAKICAgIAogICNmdW5jdGlvbnMgZm9yIGNhbGN1bGF0aW5nIFJSLnNsb3BlCiAgI2kuZS4gcmVsYXRpdmUgY2hhbmdlIGluIGNhc2Ugbm90aWZpY2F0aW9uIHJhdGUgaW4gMTk1OC0xOTYzIHZzLiBjb3VudGVyZmFjdHVhbCB0cmVuZCBmb3IgMTk1OS0xOTYzCiAgCiAgICBpZiAoIWlzLm51bGwoe3tncm91cGluZ192YXJ9fSkpIHsKICAgIG91dDMgPC0gY3Jvc3Npbmcoe3ttb2RlbF9kYXRhfX0gJT4lIAogICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB5X251bSwgISFncm91cGluZ192YXIpICU+JQogICAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHlfbnVtICVpbiUgYyg5LDE0KSksCiAgICAgICAgICAgICAgICAgICAgYWNmX3BlcmlvZCA9IGMoImEuIHByZS1hY2YiLCAiYy4gcG9zdC1hY2YiKQogICAgKQogIH0gZWxzZSB7CiAgICAKICAgIG91dDMgPC0gY3Jvc3Npbmcoe3ttb2RlbF9kYXRhfX0gJT4lIAogICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB5X251bSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXIoeV9udW0gJWluJSBjKDksMTQpKSwKICAgICAgICAgICAgICAgICAgICBhY2ZfcGVyaW9kID0gYygiYS4gcHJlLWFjZiIsICJjLiBwb3N0LWFjZiIpCiAgICApCiAgfQogIAogICAgc2xvcGVfZHJhd3MgPC0gYWRkX2VwcmVkX2RyYXdzKG5ld2RhdGEgPSBvdXQzLAogICAgICAgICAgICAgICAgICBvYmplY3QgPSB7e21vZGVsfX0sCiAgICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSB7e3JlX2Zvcm11bGF9fSkgJT4lCiAgICAgICAgYXJyYW5nZSh5X251bSkgJT4lCiAgICAgICAgdW5ncm91cCgpICU+JQogICAgICAgIG11dGF0ZShlcHJlZF9jbnIgPSAuZXByZWQvcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCoxMDAwMDApICU+JQogICAgICAgIGdyb3VwX2J5KC5kcmF3LCBhY2ZfcGVyaW9kLCAhIWdyb3VwaW5nX3ZhcikgJT4lCiAgICAgICAgc3VtbWFyaXNlKHNsb3BlID0gKGxhc3QoZXByZWRfY25yKSAtIGZpcnN0KGVwcmVkX2NucikpIC8gKGxhc3QoeV9udW0pLWZpcnN0KHlfbnVtKSkpICU+JQogICAgICAgIHVuZ3JvdXAoKSAlPiUKICAgICAgICBncm91cF9ieSguZHJhdywgISFncm91cGluZ192YXIpICU+JQogICAgICAgIHN1bW1hcmlzZShlc3RpbWF0ZSA9IGxhc3Qoc2xvcGUpL2ZpcnN0KHNsb3BlKSkgJT4lCiAgICAgICAgbXV0YXRlKG1lYXN1cmUgPSAiUlIuc2xvcGUiKQogIAogIHNsb3BlX3N1bW1hcnkgPC0gc2xvcGVfZHJhd3MgJT4lCiAgICAgZ3JvdXBfYnkoISFncm91cGluZ192YXIpICU+JQogICAgICBtZWRpYW5fcWkoZXN0aW1hdGUpICU+JQogICAgICBtdXRhdGUobWVhc3VyZSA9ICJSUi5zbG9wZSIpCiAgICAKICAjZ2F0aGVyIGFsbCB0aGUgcmVzdWx0cyBpbnRvIGEgbmFtZWQgbGlzdAogICAgbHN0KHBlYWtfZHJhd3M9cGVha19kcmF3cywgcGVha19zdW1tYXJ5PXBlYWtfc3VtbWFyeSwgCiAgICAgICAgbGV2ZWxfZHJhd3M9bGV2ZWxfZHJhd3MsIGxldmVsX3N1bW1hcnk9bGV2ZWxfc3VtbWFyeSwgCiAgICAgICAgc2xvcGVfZHJhd3M9c2xvcGVfZHJhd3MsIHNsb3BlX3N1bW1hcnk9c2xvcGVfc3VtbWFyeSkKICAKfQoKYGBgCgoKRnVuY3Rpb24gZm9yIGNhbGN1bGF0aW5nIGRpZmZlcmVuY2UgZnJvbSBjb3VudGVyZmFjdHVhbAoKYGBge3J9CgpjYWxjdWxhdGVfY291bnRlcmZhY3R1YWwgPC0gZnVuY3Rpb24obW9kZWxfZGF0YSwgbW9kZWwsIHBvcHVsYXRpb25fZGVub21pbmF0b3IsIGdyb3VwaW5nX3Zhcj1OVUxMLCByZV9mb3JtdWxhPU5BKXsKICAKICAjZWZmZWN0IHZzLiBjb3VudGVyZmFjdHVhbAogIGNvdW50ZXJmYWN0IDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSB7e21vZGVsfX0sCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0ge3ttb2RlbF9kYXRhfX0gJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlbGVjdCh5ZWFyLCB5ZWFyMiwgeV9udW0sIHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB7e2dyb3VwaW5nX3Zhcn19KSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXV0YXRlKGFjZl9wZXJpb2QgPSAiYS4gcHJlLWFjZiIpLAogICAgICAgICAgICAgICAgICAgICAgcmVfZm9ybXVsYSA9IHt7cmVfZm9ybXVsYX19KSAlPiUKICAgICAgZ3JvdXBfYnkoLmRyYXcsIHllYXIsIHt7Z3JvdXBpbmdfdmFyfX0sIGFjZl9wZXJpb2QpICU+JQogICAgICBtdXRhdGUoLmVwcmVkX2luY19jb3VudGVyZiA9IC5lcHJlZC97e3BvcHVsYXRpb25fZGVub21pbmF0b3J9fSoxMDAwMDAsIC5lcHJlZF9jb3VudGVyZj0uZXByZWQpICAlPiUKICAgICAgZmlsdGVyKHllYXI+MTk1NykgJT4lCiAgICAgIHVuZ3JvdXAoKSAlPiUKICAgICAgc2VsZWN0KHllYXIsIHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCAuZHJhdywgLmVwcmVkX2NvdW50ZXJmLCAuZXByZWRfaW5jX2NvdW50ZXJmLCB7e2dyb3VwaW5nX3Zhcn19KQogIAogICNDYWxjdWF0ZSBjYXNlIG5vdGlmaWNhdGlvbiByYXRlIHBlciBkcmF3LCB0aGVuIHN1bW1hcmlzZS4KICBwb3N0X2NoYW5nZSA8LQogICAgICBhZGRfZXByZWRfZHJhd3Mob2JqZWN0ID0ge3ttb2RlbH19LAogICAgICAgICAgICAgICAgICAgICAgbmV3ZGF0YSA9IHt7bW9kZWxfZGF0YX19ICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZWxlY3QoeWVhciwgeWVhcjIsIHlfbnVtLCB7e3BvcHVsYXRpb25fZGVub21pbmF0b3J9fSwge3tncm91cGluZ192YXJ9fSwgYWNmX3BlcmlvZCksCiAgICAgICAgICAgICAgICAgICAgICByZV9mb3JtdWxhID0ge3tyZV9mb3JtdWxhfX0pICU+JQogICAgICBncm91cF9ieSguZHJhdywgeWVhciwge3tncm91cGluZ192YXJ9fSwgYWNmX3BlcmlvZCkgJT4lCiAgICAgIG11dGF0ZSguZXByZWRfaW5jID0gLmVwcmVkL3t7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19KjEwMDAwMCkgICU+JQogICAgICBmaWx0ZXIoeWVhcj4xOTU3KSAlPiUKICAgICAgdW5ncm91cCgpICU+JQogICAgICBzZWxlY3QoeWVhciwge3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0sIHt7Z3JvdXBpbmdfdmFyfX0sIC5kcmF3LCAuZXByZWQsIC5lcHJlZF9pbmMsIHt7Z3JvdXBpbmdfdmFyfX0pIAogIAogICNmb3IgdGhlIG92ZXJhbGwgcGVyaW9kCiAgICBjb3VudGVyZmFjdF9vdmVyYWxsIDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSB7e21vZGVsfX0sCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0ge3ttb2RlbF9kYXRhfX0gJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlbGVjdCh5ZWFyLCB5ZWFyMiwgeV9udW0sIHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB7e2dyb3VwaW5nX3Zhcn19KSAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXV0YXRlKGFjZl9wZXJpb2QgPSAiYS4gcHJlLWFjZiIpLAogICAgICAgICAgICAgICAgICAgICAgcmVfZm9ybXVsYSA9IHt7cmVfZm9ybXVsYX19KSAlPiUKICAgICAgZ3JvdXBfYnkoLmRyYXcsIHt7Z3JvdXBpbmdfdmFyfX0pICU+JQogICAgICBmaWx0ZXIoeWVhcj4xOTU3KSAlPiUKICAgICAgdW5ncm91cCgpICU+JQogICAgICBzZWxlY3Qoe3twb3B1bGF0aW9uX2Rlbm9taW5hdG9yfX0sIC5kcmF3LCAuZXByZWQsIHt7Z3JvdXBpbmdfdmFyfX0pICAlPiUKICAgICAgZ3JvdXBfYnkoLmRyYXcsIHt7Z3JvdXBpbmdfdmFyfX0pICU+JQogICAgICBzdW1tYXJpc2UoLmVwcmVkX2NvdW50ZXJmID0gc3VtKC5lcHJlZCkpIAogIAogICNDYWxjdWF0ZSBjYXNlIG5vdGlmaWNhdGlvbiByYXRlIHBlciBkcmF3LCB0aGVuIHN1bW1hcmlzZS4KICBwb3N0X2NoYW5nZV9vdmVyYWxsIDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSB7e21vZGVsfX0sCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0ge3ttb2RlbF9kYXRhfX0gJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlbGVjdCh5ZWFyLCB5ZWFyMiwgeV9udW0sIHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB7e2dyb3VwaW5nX3Zhcn19LCBhY2ZfcGVyaW9kKSwKICAgICAgICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSB7e3JlX2Zvcm11bGF9fSkgJT4lCiAgICAgIGdyb3VwX2J5KC5kcmF3LCB7e2dyb3VwaW5nX3Zhcn19KSAlPiUKICAgICAgZmlsdGVyKHllYXI+MTk1NykgJT4lCiAgICAgIHVuZ3JvdXAoKSAlPiUKICAgICAgc2VsZWN0KHt7cG9wdWxhdGlvbl9kZW5vbWluYXRvcn19LCB7e2dyb3VwaW5nX3Zhcn19LCAuZHJhdywgLmVwcmVkKSAlPiUKICAgICAgZ3JvdXBfYnkoLmRyYXcsIHt7Z3JvdXBpbmdfdmFyfX0pICU+JQogICAgICBzdW1tYXJpc2UoLmVwcmVkID0gc3VtKC5lcHJlZCkpIAogIAogIApjb3VudGVyX3Bvc3QgPC0KICBsZWZ0X2pvaW4oY291bnRlcmZhY3QsIHBvc3RfY2hhbmdlKSAlPiUKICAgIG11dGF0ZShjYXNlc19hdmVydGVkID0gLmVwcmVkX2NvdW50ZXJmLS5lcHJlZCwKICAgICAgICAgICBwY3RfY2hhbmdlID0gKC5lcHJlZCAtIC5lcHJlZF9jb3VudGVyZikvLmVwcmVkX2NvdW50ZXJmLAogICAgICAgICAgIGRpZmZfaW5jMTAwayA9IC5lcHJlZF9pbmMgLSAuZXByZWRfaW5jX2NvdW50ZXJmLAogICAgICAgICAgIHJyX2luYzEwMGsgPSAuZXByZWRfaW5jLy5lcHJlZF9pbmNfY291bnRlcmYpICU+JQogICAgZ3JvdXBfYnkoeWVhciwge3tncm91cGluZ192YXJ9fSkgJT4lCiAgICBtZWFuX3FpKGNhc2VzX2F2ZXJ0ZWQsIHBjdF9jaGFuZ2UsIGRpZmZfaW5jMTAwaywgcnJfaW5jMTAwaykgJT4lCiAgICB1bmdyb3VwKCkKCmNvdW50ZXJfcG9zdF9vdmVyYWxsIDwtCiAgbGVmdF9qb2luKGNvdW50ZXJmYWN0X292ZXJhbGwsIHBvc3RfY2hhbmdlX292ZXJhbGwpICU+JQogICAgbXV0YXRlKGNhc2VzX2F2ZXJ0ZWQgPSAuZXByZWRfY291bnRlcmYtLmVwcmVkLAogICAgICAgICAgIHBjdF9jaGFuZ2UgPSAoLmVwcmVkIC0gLmVwcmVkX2NvdW50ZXJmKS8uZXByZWRfY291bnRlcmYpICU+JQogICAgZ3JvdXBfYnkoe3tncm91cGluZ192YXJ9fSkgJT4lCiAgICBtZWFuX3FpKGNhc2VzX2F2ZXJ0ZWQsIHBjdF9jaGFuZ2UpICU+JQogICAgdW5ncm91cCgpCgpsc3QoY291bnRlcl9wb3N0LCBjb3VudGVyX3Bvc3Rfb3ZlcmFsbCkKCn0KCgpgYGAKCkZ1bmN0aW9uIGZvciB0aWR5aW5nIHVwIGNvdW50ZXJmYWN0dWFscyAobW9zdGx5IGZvciBtYWtpbmcgbmljZSB0YWJsZXMpCgpgYGB7cn0KCnRpZHlfY291bnRlcmZhY3R1YWxzIDwtIGZ1bmN0aW9uKGRhdGEpewogIGRhdGEgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKGNhc2VzX2F2ZXJ0ZWQ6Y2FzZXNfYXZlcnRlZC51cHBlciwgZGlmZl9pbmMxMDBrOmRpZmZfaW5jMTAway51cHBlciksIG51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEsIGJpZy5tYXJrID0gIiwiKSkpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhycl9pbmMxMDBrOnJyX2luYzEwMGsudXBwZXIpLCBudW1iZXJfZm9ybWF0KGFjY3VyYWN5ID0gMC4wMSkpKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMocGN0X2NoYW5nZTpwY3RfY2hhbmdlLnVwcGVyKSwgcGVyY2VudCwgYWNjdXJhY3k9MC4xKSkgJT4lCiAgbXV0YXRlKHllYXIgPSBhcy5jaGFyYWN0ZXIoeWVhciksCiAgICAgICAgICAgIGNhc2VzX2F2ZXJ0ZWQgPSBnbHVlOjpnbHVlKCJ7Y2FzZXNfYXZlcnRlZH0gKHtjYXNlc19hdmVydGVkLmxvd2VyfSB0byB7Y2FzZXNfYXZlcnRlZC51cHBlcn0pIiksCiAgICAgICAgICAgIHBjdF9jaGFuZ2UgPSBnbHVlOjpnbHVlKCJ7cGN0X2NoYW5nZX0gKHtwY3RfY2hhbmdlLmxvd2VyfSB0byB7cGN0X2NoYW5nZS51cHBlcn0pIiksCiAgICAgICAgICAgIGRpZmZfaW5jID0gZ2x1ZTo6Z2x1ZSgie2RpZmZfaW5jMTAwa30gKHtkaWZmX2luYzEwMGsubG93ZXJ9IHRvIHtkaWZmX2luYzEwMGsudXBwZXJ9KSIpLAogICAgICAgICAgICBycl9pbmMgPSBnbHVlOjpnbHVlKCJ7cnJfaW5jMTAwa30gKHtycl9pbmMxMDBrLmxvd2VyfSB0byB7cnJfaW5jMTAway51cHBlcn0pIikpCn0KCgp0aWR5X2NvdW50ZXJmYWN0dWFsc19vdmVyYWxsIDwtIGZ1bmN0aW9uKGRhdGEpewogIGRhdGEgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKGNhc2VzX2F2ZXJ0ZWQ6Y2FzZXNfYXZlcnRlZC51cHBlciksIG51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEsIGJpZy5tYXJrID0gIiwiKSkpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhwY3RfY2hhbmdlOnBjdF9jaGFuZ2UudXBwZXIpLCBwZXJjZW50LCBhY2N1cmFjeT0wLjEpKSAlPiUKICBtdXRhdGUoeWVhciA9IGFzLmNoYXJhY3Rlcih5ZWFyKSwKICAgICAgICAgICAgY2FzZXNfYXZlcnRlZCA9IGdsdWU6OmdsdWUoIntjYXNlc19hdmVydGVkfSAoe2Nhc2VzX2F2ZXJ0ZWQubG93ZXJ9IHRvIHtjYXNlc19hdmVydGVkLnVwcGVyfSkiKSwKICAgICAgICAgICAgcGN0X2NoYW5nZSA9IGdsdWU6OmdsdWUoIntwY3RfY2hhbmdlfSAoe3BjdF9jaGFuZ2UubG93ZXJ9IHRvIHtwY3RfY2hhbmdlLnVwcGVyfSkiKSkKfQoKYGBgCgoKCiMjIyAyLiBEYXRhCgpJbXBvcnQgZGF0YXNldHMgZm9yIGFuYWx5c2lzCgojIyMjIDIuMSBTaGFwZWZpbGVzCgpNYWtlIGEgbWFwIG9mIEdsYXNnb3cgd2FyZHMKCmBgYHtyfQoKZ2xhc2dvd193YXJkc18xOTUxIDwtIHN0X3JlYWQoaGVyZSgibWFwcGluZy9nbGFzZ293X3dhcmRzXzE5NTEuZ2VvanNvbiIpKQoKYGBgCgpgYGB7cn0KCiNyZWFkIGluIFNjb3RsYW5kIGJvdW5kYXJ5CnNjb3RsYW5kIDwtIHN0X3JlYWQoaGVyZSgibWFwcGluZy9TY290bGFuZF9ib3VuZGFyeS9TY290bGFuZCBib3VuZGFyeS5zaHAiKSkKCiNtYWtlIGEgYm91bmRpbmcgYm94IGZvciBHbGFzZ293CmJib3ggPC0gc3RfYmJveChnbGFzZ293X3dhcmRzXzE5NTEpIHw+IHN0X2FzX3NmYygpCgojcGxvdCBzY290bGFuZCB3aXRoIGEgYm91bmRpbmcgYm94IGFyb3VuZCB0aGUgQ2l0eSBvZiBHbGFzZ293CnNjb3RsYW5kX3dpdGhfYmJveCA8LSBnZ3Bsb3QoKSArCiAgZ2VvbV9zZihkYXRhID0gc2NvdGxhbmQsIGZpbGw9ImFudGlxdWV3aGl0ZSIpICsKICBnZW9tX3NmKGRhdGEgPSBiYm94LCBjb2xvdXIgPSAiI0M2MEMzMCIsIGZpbGw9ImFudGlxdWV3aGl0ZSIpICsKICB0aGVtZV92b2lkKCkgKwogIHRoZW1lKHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSwgbGluZXdpZHRoID0gMC41KSwKICAgICAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAiI0VBRjdGQSIsIHNpemUgPSAwLjMpKQoKI3Bsb3QgdGhlIHdhcmRzCiNub3RlIHdlIHRpZHkgdXAgc29tZSBuYW1lcyB0byBmaXQgb24gbWFwCmdsYXNnb3dfd2FyZF9tYXAgPC0gZ2xhc2dvd193YXJkc18xOTUxICU+JQogIG11dGF0ZSh3YXJkID0gY2FzZV93aGVuKHdhcmQ9PSJTaGV0dGxlc3RvbiBhbmQgVG9sbGNyb3NzIiB+ICJTaGV0dGxlc3RvbiBhbmRcblRvbGxjcm9zcyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgd2FyZD09IlBhcnRpY2sgKFdlc3QpIiB+ICJQYXJ0aWNrXG4oV2VzdCkiLAogICAgICAgICAgICAgICAgICAgICAgICAgIHdhcmQ9PSJQYXJ0aWNrIChFYXN0KSIgfiAiUGFydGlja1xuKEVhc3QpIiwKICAgICAgICAgICAgICAgICAgICAgICAgICB3YXJkPT0iTm9ydGggS2VsdmluIiB+ICJOb3J0aFxuS2VsdmluIiwKICAgICAgICAgICAgICAgICAgICAgICAgICB3YXJkPT0iS2lubmluZyBQYXJrIiB+ICJLaW5uaW5nXG5QYXJrIiwKICAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gd2FyZCkpICU+JQogIAogIGdncGxvdCgpICsKICBnZW9tX3NmKGFlcyhmaWxsPWRpdmlzaW9uKSkgKwogIGdlb21fc2ZfbGFiZWwoYWVzKGxhYmVsID0gd2FyZCksIHNpemU9MywgZmlsbD1OQSwgbGFiZWwuc2l6ZSA9IE5BLCBjb2xvdXI9ImJsYWNrIikgKwogICNzY2FsZV9jb2xvdXJfaWRlbnRpdHkoKSArCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQzIiwgbmFtZT0iQ2l0eSBvZiBHbGFzZ293IERpdmlzaW9uIikgKwogIHRoZW1lX2dyZXkoKSArCiAgbGFicyh4PSIiLAogICAgICAgeT0iIiwKICAgICAgIGZpbGw9IkRpdmlzaW9uIikgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJ0b3AiLAogICAgICAgIAogICAgICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSwgbGluZXdpZHRoID0gMC41KSwKICAgICAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAiYW50aXF1ZXdoaXRlIiwgc2l6ZSA9IDAuMyksCiAgICAgICAgcGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfbGluZShjb2xvciA9ICJncmV5NzgiKSkgKwogIGd1aWRlcyhmaWxsPWd1aWRlX2xlZ2VuZCh0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLCB0aXRsZS5oanVzdCA9IDAuNSwgdGl0bGUudGhlbWUgPSBlbGVtZW50X3RleHQoZmFjZT0iYm9sZCIpKSkKCiNhZGQgdGhlIG1hcCBvZiBzY290bGFuZCBhcyBhbiBpbnNldApnbGFzZ293X3dhcmRfbWFwICsgaW5zZXRfZWxlbWVudChzY290bGFuZF93aXRoX2Jib3gsIDAuNzUsIDAsIDEsIDAuNCkKCmdnc2F2ZShoZXJlKCJmaWd1cmVzL3MxLnBuZyIpLCBoZWlnaHQ9MTAsIHdpZHRoID0gMTIpCgoKYGBgCgpDYWxjdWxhdGUgYXJlYXMgcGVyIGdlb2dyYXBoaWNhbCB1bml0CgpgYGB7cn0Kc2ZfdXNlX3MyKEZBTFNFKSAjaHR0cHM6Ly9naXRodWIuY29tL3Itc3BhdGlhbC9zZi9pc3N1ZXMvMTc2MgoKZ2xhc2dvd193YXJkc18xOTUxIDwtIGdsYXNnb3dfd2FyZHNfMTk1MSAlPiUKICBtdXRhdGUoYXJlYSA9IHN0X2FyZWEoZ2xhc2dvd193YXJkc18xOTUxKSkKCgpnbGFzZ293X3dhcmRzXzE5NTEkYXJlYV9rbSA8LSB1bml0czo6c2V0X3VuaXRzKGdsYXNnb3dfd2FyZHNfMTk1MSRhcmVhLCBrbV4yKQoKCmBgYAoKCk1ha2UgZGl2aXNpb24gc2hhcGUgZmlsZXMsIGFuZCBjYWxjdWxhdGUgYXJlYQooc3RvcHBlZCB3b3JraW5nLCBuZWVkIHRvIGZpeCEpCgpgYGB7cn0KCiMgZ2xhc2dvd19kaXZpc2lvbnNfMTk1MSA8LSBnbGFzZ293X3dhcmRzXzE5NTEgJT4lCiMgICBncm91cF9ieShkaXZpc2lvbikgJT4lIAojICAgc3VtbWFyaXplKGdlb21ldHJ5ID0gc3RfdW5pb24oZ2VvbWV0cnkpKSAlPiUKIyAgIG5uZ2VvOjpzdF9yZW1vdmVfaG9sZXMoKSAlPiUKIyAgIG11dGF0ZShhcmVhID0gc3RfYXJlYShnbGFzZ293X2RpdmlzaW9uc18xOTUxKSkKIyAKIyBnbGFzZ293X2RpdmlzaW9uc18xOTUxJGFyZWFfa20gPC0gdW5pdHM6OnNldF91bml0cyhnbGFzZ293X2RpdmlzaW9uc18xOTUxJGFyZWEsIGttXjIpCgoKYGBgCgoKIyMjIDMuIERlbm9taW5hdG9ycwoKTG9hZCBpbiB0aGUgZGF0YXNldHMgZm9yIGRlbm9ub21pYXRvcnMsIGFuZCBjaGVjayBmb3IgY29uc2lzdGVuY3kuCgpgYGB7cn0KCm92ZXJhbGxfcG9wcyA8LSByZWFkX3hsc3gocGF0aCA9ICIyMDIzLTExLTI4X2dsYXNnb3ctYWNmLnhsc3giLCBzaGVldCA9ICJvdmVyYWxsX3BvcHVsYXRpb24iKQoKb3ZlcmFsbF9wb3BzICU+JQogIG11dGF0ZShhY3Jvc3Mod2hlcmUoaXMubnVtZXJpYykgJiAhKHllYXIpLCAgfmNvbW1hKC4pKSkgJT4lCiAgZGF0YXRhYmxlKCkKCiNzaGlmdCB5ZWFyIHRvIG1pZHBvaW50Cm92ZXJhbGxfcG9wcyA8LSBvdmVyYWxsX3BvcHMgJT4lCiAgbXV0YXRlKHllYXIyID0geWVhciswLjUpCgpgYGAKCk5vdGUsIHdlIGhhdmUgdGhyZWUgcG9wdWxhdGlvbiBlc3RpbWF0ZXM6CgoxLiBQb3B1bGF0aW9uIHdpdGhvdXQgaW5zdGl0dXRpb25hbGlzZWQgcGVvcGxlIG9yIHBlb3BsZSBpbiBzaGlwcGluZwoyLiBQb3B1bGF0aW9uIGluIGluc3RpdHV0aW9ucwozLiBQb3B1bGF0aW9uIGluIHNoaXBwaW5nCgooUG9wdWxhdGlvbiBpbiBzaGlwcGluZyBpcyBlc3RpbWF0ZWQgZnJvbSB0aGUgMTk1MSBjZW5zdXMsIHNvIGlzIHRoZSBzYW1lIGZvciBtb3N0IHllYXJzKQoKIyMjIyAzLjEgT3ZlcmFsbCBwb3B1bGF0aW9uCgpGaXJzdCwgcGxvdCB0aGUgdG90YWwgcG9wdWxhdGlvbgoKYGBge3J9CgpvdmVyYWxsX3BvcHMgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fYXJlYShhZXMoeT10b3RhbF9wb3B1bGF0aW9uLCB4PXllYXIyKSwgYWxwaGE9MC41LCBjb2xvdXIgPSAibWVkaXVtc2VhZ3JlZW4iLCBmaWxsPSJtZWRpdW1zZWFncmVlbiIpICsKICBnZW9tX3BvaW50KGFlcyh5PXRvdGFsX3BvcHVsYXRpb24sIHg9eWVhcjIpLCBjb2xvdXIgPSAibWVkaXVtc2VhZ3JlZW4iKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzKSArCiAgbGFicygKICAgIHRpdGxlID0gIkdsYXNnb3cgQ29ycG9yYXRpb246IHRvdGFsIHBvcHVsYXRpb24iLAogICAgc3VidGl0bGUgPSAiMTk1MCB0byAxOTYzIiwKICAgIHggPSAiWWVhciIsCiAgICB5ID0gIlBvcHVsYXRpb24iLAogICAgY2FwdGlvbiA9ICJNaWQteWVhciBlc3RpbWF0ZXNcbk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpIgogICkgKwogIHRoZW1lX2dnZGlzdCgpCgoKYGBgCgpOb3cgdGhlIHBvcHVsYXRpb24gZXhjbHVkaW5nIGluc3RpdHV0aW9uYWxpc2VkIGFuZCBzaGlwcGluZyBwb3B1bGF0aW9uCgpgYGB7cn0KCm92ZXJhbGxfcG9wcyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9hcmVhKGFlcyh5PXBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsIHg9eWVhcjIpLCBhbHBoYT0wLjUsIGNvbG91ciA9ICJwdXJwbGUiLCBmaWxsPSJwdXJwbGUiKSArCiAgZ2VvbV9wb2ludChhZXMoeT1wb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCB4PXllYXIyKSwgY29sb3VyID0gInB1cnBsZSIpICsKICBnZW9tX3ZsaW5lKGFlcyh4aW50ZXJjZXB0PWFjZl9zdGFydCksIGxpbmV0eXBlPTMpICsKICBnZW9tX3ZsaW5lKGFlcyh4aW50ZXJjZXB0PWFjZl9lbmQpLCBsaW5ldHlwZT0zKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscz1jb21tYSkgKwogIHNjYWxlX3hfY29udGludW91cyhsYWJlbHMgPSB5ZWFyX2xhYmVscywKICAgICAgICAgICAgICAgICAgICAgYnJlYWtzID0geWVhcl9sYWJlbHMpICsKICBsYWJzKAogICAgdGl0bGUgPSAiR2xhc2dvdyBDb3Jwb3JhdGlvbjogcG9wdWxhdGlvbiBleGNsdWRpbmcgaW5zdGl0dXRpb25hbGlzZWQgYW5kIHNoaXBwaW5nIiwKICAgIHN1YnRpdGxlID0gIjE5NTAgdG8gMTk2MyIsCiAgICB4ID0gIlllYXIiLAogICAgeSA9ICJQb3B1bGF0aW9uIiwKICAgIGNhcHRpb24gPSAiTWlkLXllYXIgZXN0aW1hdGVzXG5NYXNzIG1pbmlhdHVyZSBYLXJheSBjYW1wYWlnbiBwZXJpb2QgYmV0d2VlbiBkYXNoZWQgbGluZXMgKDExdGggTWFyY2gtMTJ0aCBBcHJpbCAxOTU3KSIKICApICsKICB0aGVtZV9nZ2Rpc3QoKQoKCmBgYAoKIyMjIyAzLjIgUG9wdWxhdGlvbiBieSBXYXJkCgpUaGVyZSBhcmUgNSBEaXZpc2lvbnMgY29udGFpbmluZyAzNyBXYXJkcyBpbiB0aGUgR2xhc2dvdyBDb3Jwb3JhdGlvbiwgd2l0aCBjb25zaXN0ZW50IGJvdW5kYXJpZXMgb3ZlciB0aW1lLgoKYGBge3J9CiNsb29rLXVwIHRhYmxlIGZvciBkaXZpc2lvbnMgYW5kIHdhcmRzCndhcmRfbG9va3VwIDwtIHJlYWRfeGxzeChwYXRoID0gIjIwMjMtMTEtMjhfZ2xhc2dvdy1hY2YueGxzeCIsIHNoZWV0ID0gImRpdmlzaW9uc193YXJkcyIpCgoKd2FyZF9wb3BzIDwtIHJlYWRfeGxzeChwYXRoID0gIjIwMjMtMTEtMjhfZ2xhc2dvdy1hY2YueGxzeCIsIHNoZWV0ID0gIndhcmRfcG9wdWxhdGlvbiIpCgp3YXJkX3BvcHMgJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+Y29tbWEoLikpKSAlPiUKICBkYXRhdGFibGUoKQoKI3NoaWZ0IHllYXIgdG8gbWlkcG9pbnQKd2FyZF9wb3BzIDwtIHdhcmRfcG9wcyAlPiUKICBtdXRhdGUoeWVhcjIgPSB5ZWFyKzAuNSkKCiNHZXQgdGhlIERpdmlzaW9uIHBvcHVsYXRpb24KZGl2aXNpb25fcG9wcyA8LSB3YXJkX3BvcHMgJT4lCiAgZ3JvdXBfYnkoZGl2aXNpb24sIHllYXIpICU+JQogIHN1bW1hcmlzZShwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwID0gc3VtKHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsIG5hLnJtID0gVFJVRSksCiAgICAgICAgICAgIGluc3RpdHV0aW9ucyA9IHN1bShpbnN0aXR1dGlvbnMsIG5hLnJtID0gVFJVRSksCiAgICAgICAgICAgIHNoaXBwaW5nID0gc3VtKHNoaXBwaW5nLCBuYS5ybSA9IFRSVUUpLAogICAgICAgICAgICB0b3RhbF9wb3B1bGF0aW9uID0gc3VtKHRvdGFsX3BvcHVsYXRpb24sIG5hLnJtID0gVFJVRSkpCgpkaXZpc2lvbl9wb3BzICU+JQogIG11dGF0ZShhY3Jvc3Mod2hlcmUoaXMubnVtZXJpYykgJiAhKHllYXIpLCAgfmNvbW1hKC4pKSkgJT4lCiAgZGF0YXRhYmxlKCkKCmBgYAoKUGxvdCB0aGUgb3ZlcmFsbCBwb3B1bGF0aW9uIGJ5IERpdmlzaW9uIGFuZCBXYXJkCgpgYGB7cn0KCmRpdmlzaW9uX3BvcHMgJT4lCiAgbXV0YXRlKHllYXIyID0geWVhciswLjUpICU+JQogIGdncGxvdCgpICsKICBnZW9tX2FyZWEoYWVzKHk9dG90YWxfcG9wdWxhdGlvbiwgeD15ZWFyMiwgY29sb3VyPWRpdmlzaW9uLCBmaWxsPWRpdmlzaW9uKSwgYWxwaGE9MC44KSArCiAgZ2VvbV9wb2ludChhZXMoeT10b3RhbF9wb3B1bGF0aW9uLCB4PXllYXIyLCBjb2xvdXI9ZGl2aXNpb24pKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBmYWNldF93cmFwKGRpdmlzaW9ufi4pICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBndWlkZSA9IGd1aWRlX2F4aXMoYW5nbGUgPSA5MCkpICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDMiLCBuYW1lID0gIiIpICsKICBzY2FsZV9jb2xvdXJfYnJld2VyKHBhbGV0dGUgPSAiU2V0MyIsIG5hbWUgPSAiIikgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJHbGFzZ293IENvcnBvcmF0aW9uOiB0b3RhbCBwb3B1bGF0aW9uIGJ5IERpdmlzaW9uIiwKICAgIHN1YnRpdGxlID0gIjE5NTAgdG8gMTk2MyIsCiAgICB4ID0gIlllYXIiLAogICAgeSA9ICJQb3B1bGF0aW9uIiwKICAgIGNhcHRpb24gPSAiTWlkLXllYXIgZXN0aW1hdGVzXG5NYXNzIG1pbmlhdHVyZSBYLXJheSBjYW1wYWlnbiBwZXJpb2QgYmV0d2VlbiBkYXNoZWQgbGluZXMgKDExdGggTWFyY2gtMTJ0aCBBcHJpbCAxOTU3KSIKICApICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIpCgoKYGBgCgpgYGB7cn0KCndhcmRfcG9wcyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9hcmVhKGFlcyh5PXRvdGFsX3BvcHVsYXRpb24sIHg9eWVhcjIsIGNvbG91cj1kaXZpc2lvbiwgZmlsbD1kaXZpc2lvbiksIGFscGhhPTAuOCkgKwogIGdlb21fcG9pbnQoYWVzKHk9dG90YWxfcG9wdWxhdGlvbiwgeD15ZWFyMiwgY29sb3VyPWRpdmlzaW9uKSkgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX3N0YXJ0KSwgbGluZXR5cGU9MykgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX2VuZCksIGxpbmV0eXBlPTMpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzPWNvbW1hKSArCiAgZmFjZXRfd3JhcCh3YXJkfi4sIG5jb2w9NikgKwogIHNjYWxlX3hfY29udGludW91cyhsYWJlbHMgPSB5ZWFyX2xhYmVscywKICAgICAgICAgICAgICAgICAgICAgYnJlYWtzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGd1aWRlID0gZ3VpZGVfYXhpcyhhbmdsZSA9IDkwKSkgKwogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiU2V0MyIsIG5hbWU9IkRpdmlzaW9uIikgKwogIHNjYWxlX2NvbG91cl9icmV3ZXIocGFsZXR0ZSA9ICJTZXQzIiwgbmFtZSA9ICJEaXZpc2lvbiIpICsKICBsYWJzKAogICAgdGl0bGUgPSAiR2xhc2dvdyBDaXR5OiB0b3RhbCBwb3B1bGF0aW9uIGJ5IFdhcmQiLAogICAgc3VidGl0bGUgPSAiMTk1MCB0byAxOTYzIiwKICAgIHggPSAiWWVhciIsCiAgICB5ID0gIlBvcHVsYXRpb24iLAogICAgY2FwdGlvbiA9ICJNaWQteWVhciBlc3RpbWF0ZXNcbk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpIgogICkgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikKCmdnc2F2ZShoZXJlKCJmaWd1cmVzL3MyLnBuZyIpLCBoZWlnaHQ9MTAsIHdpZHRoPTEyKQoKYGBgCgpBcHByb3hpbWF0ZWx5LCBob3cgbWFueSBwZXJzb24teWVhcnMgb2YgZm9sbG93LXVwIGRvIHdlIGhhdmU/CgpgYGB7cn0KCm92ZXJhbGxfcG9wcyAlPiUKICB1bmdyb3VwKCkgJT4lCiAgc3VtbWFyaXNlKGFjcm9zcyh5ZWFyLCBsZW5ndGgsIC5uYW1lcyA9ICJ5ZWFycyIpLAogICAgICAgICAgICBhY3Jvc3MoYyhwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCB0b3RhbF9wb3B1bGF0aW9uKSwgc3VtKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5kb3VibGUpLCBjb21tYSkpICU+JQogIGRhdGF0YWJsZSgpCgoKYGBgCgpDaGFuZ2UgaW4gcG9wdWxhdGlvbiBieSB3YXJkCgpgYGB7cn0KCndhcmRfcG9wcyAlPiUKICBncm91cF9ieSh3YXJkKSAlPiUKICBzdW1tYXJpc2UocGN0X2NoYW5nZV9wb3AgPSAobGFzdChwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwKSAtIGZpcnN0KHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXApKS9maXJzdChwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwKSkgJT4lCiAgbXV0YXRlKHBjdF9jaGFuZ2VfcG9wID0gcGVyY2VudChwY3RfY2hhbmdlX3BvcCkpICU+JQogIGFycmFuZ2UocGN0X2NoYW5nZV9wb3ApICU+JQogIGRhdGF0YWJsZSgpCiAgCgoKYGBgCgpPdXRwdXQgcG9wdWxhdGlvbiBkZW5zaXR5IGJ5IHdhcmQgYW5kIGRpdmlzb24gZm9yIHJlZ3Jlc3Npb24gbW9kZWxsaW5nCgpXYXJkcyBmaXJzdAoKKHN0b3BwZWQgd29ya2luZywgbmVlZCB0byBmaXgpCgpgYGB7cn0KCiMgd2FyZF9jb3ZhcmlhdGVzIDwtICBnbGFzZ293X3dhcmRzXzE5NTEgJT4lCiMgICBsZWZ0X2pvaW4od2FyZF9wb3BzKSAlPiUKIyAgIG11dGF0ZShwZW9wbGVfcGVyX2ttX3NxID0gYXMuZG91YmxlKHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAvYXJlYV9rbSkpCiMgCiMgI3Bsb3QgaXQgb3V0CiMgCiMgd2FyZF9jb3ZhcmlhdGVzICU+JQojICAgZ2dwbG90KCkgKwojICAgZ2VvbV9zZihhZXMoZmlsbD1wZW9wbGVfcGVyX2ttX3NxKSkgKyAKIyAgIGZhY2V0X3dyYXAoeWVhcn4uLCBuY29sPTcpICsKIyAgIHNjYWxlX2ZpbGxfdmlyaWRpc19jKG9wdGlvbj0iQSIpICsKIyAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAojICAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA0NSwgaGp1c3Q9MSkpCiMgCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMvd2FyZF9wb3BfZGVuc2l0eS5wbmciKSwgd2lkdGg9MTApCiMgCiMgd3JpdGVfcmRzKHdhcmRfY292YXJpYXRlcywgaGVyZSgicG9wdWxhdGlvbnMvd2FyZF9jb3ZhcmlhdGVzLnJkcyIpKQoKCmBgYAoKTm93IGRpdmlzaW9ucyBmaXJzdAoKCihzdG9wcGVkIHdvcmtpbmcsIG5lZWQgdG8gZml4KQoKYGBge3J9CgojIGRpdmlzaW9uX2NvdmFyaWF0ZXMgPC0gIGdsYXNnb3dfZGl2aXNpb25zXzE5NTEgJT4lCiMgICBsZWZ0X2pvaW4oZGl2aXNpb25fcG9wcykgJT4lCiMgICBtdXRhdGUocGVvcGxlX3Blcl9rbV9zcSA9IGFzLmRvdWJsZSh0b3RhbF9wb3B1bGF0aW9uL2FyZWFfa20pKQojIAojICNwbG90IGl0IG91dAojIAojIGRpdmlzaW9uX2NvdmFyaWF0ZXMgJT4lCiMgICBnZ3Bsb3QoKSArCiMgICBnZW9tX3NmKGFlcyhmaWxsPXBlb3BsZV9wZXJfa21fc3EpKSArIAojICAgZ2VvbV9zZl9sYWJlbChhZXMobGFiZWwgPSBkaXZpc2lvbiksIHNpemU9MywgZmlsbD1OQSwgbGFiZWwuc2l6ZSA9IE5BLCBjb2xvdXI9ImJsYWNrIiwgZmFtaWx5ID0gIlNlZ29lIFVJIikgKwojICAgZmFjZXRfd3JhcCh5ZWFyfi4sIG5jb2w9NykgKwojICAgc2NhbGVfZmlsbF92aXJpZGlzX2Mob3B0aW9uPSJHIikgKwojICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiMgICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdD0xKSkKIyAKIyBnZ3NhdmUoaGVyZSgiZmlndXJlcy9kaXZpc2lvbl9wb3BfZGVuc2l0eS5wbmciKSwgd2lkdGg9MTApCiMgCiMgd3JpdGVfcmRzKGRpdmlzaW9uX2NvdmFyaWF0ZXMsIGhlcmUoInBvcHVsYXRpb25zL2RpdmlzaW9uX2NvdmFyaWF0ZXMucmRzIikpCgpgYGAKCgojIyMjIDMuMyBQb3B1bGF0aW9uIGJ5IGFnZSBhbmQgc2V4CgpgYGB7cn0KCmFnZV9zZXggPC0gcmVhZF94bHN4KHBhdGggPSAiMjAyMy0xMS0yOF9nbGFzZ293LWFjZi54bHN4Iiwgc2hlZXQgPSAiYWdlX3NleF9wb3B1bGF0aW9uIikgJT4lCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKG1hbGUsIGZlbWFsZSksCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gInNleCIpCgojY29sbGFwc2UgZG93biB0byBzbWFsbGVyIGFnZSBncm91cHMgdG8gYmUgbWFuYWdlYWJsZQphZ2Vfc2V4IDwtIGFnZV9zZXggJT4lCiAgdW5ncm91cCgpICU+JQogIG11dGF0ZShhZ2UgPSBjYXNlX3doZW4oYWdlID09ICIwIHRvIDQiIH4gIjAwIHRvIDA0IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZSA9PSAiNSB0byA5IiB+ICIwNSB0byAxNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjEwIHRvIDE0IiB+ICIwNSB0byAxNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjE1IHRvIDE5IiB+ICIxNSB0byAyNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjIwIHRvIDI0IiB+ICIxNSB0byAyNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjI1IHRvIDI5IiB+ICIyNSB0byAzNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjMwIHRvIDM0IiB+ICIyNSB0byAzNCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjM1IHRvIDM5IiB+ICIzNSB0byA0NCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjQwIHRvIDQ0IiB+ICIzNSB0byA0NCIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjQ1IHRvIDQ5IiB+ICI0NSB0byA1OSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjUwIHRvIDU0IiB+ICI0NSB0byA1OSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2UgPT0gIjU1IHRvIDU5IiB+ICI0NSB0byA1OSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBUUlVFIH4gIjYwICYgdXAiKSkgJT4lCiAgZ3JvdXBfYnkoeWVhciwgYWdlLCBzZXgpICU+JQogIG11dGF0ZSh2YWx1ZSA9IHN1bSh2YWx1ZSkpICU+JQogIHVuZ3JvdXAoKQoKCgptX2FnZV9zZXggPC0gbG0odmFsdWUgfiBzcGxpbmVzOjpucyh5ZWFyLCBrbm90cyA9IDMpKmFnZSpzZXgsIGRhdGEgPSBhZ2Vfc2V4KQoKc3VtbWFyeShtX2FnZV9zZXgpCgphZ2VfbGV2ZWxzIDwtIGFnZV9zZXggJT4lIHNlbGVjdChhZ2UpICU+JSBkaXN0aW5jdCgpICU+JSBwdWxsKCkgCgphZ2Vfc2V4X25kIDwtIAogIGNyb3NzaW5nKAogICAgYWdlPWFnZV9sZXZlbHMsCiAgICBzZXg9YygibWFsZSIsICJmZW1hbGUiKSwKICAgIHllYXIgPSAxOTUwOjE5NjMKICApCgpwcmVkX3BvcHMgPC0gYWdlX3NleF9uZCAlPiUgbW9kZWxyOjphZGRfcHJlZGljdGlvbnMobV9hZ2Vfc2V4KQoKcHJlZF9wb3BzICU+JQogIGdncGxvdChhZXMoeD15ZWFyLCB5PXByZWQsIGNvbG91cj1hZ2UpKSArCiAgZ2VvbV9saW5lKCkgKwogIGdlb21fcG9pbnQoKSArCiAgZmFjZXRfZ3JpZChzZXh+LikgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBjb21tYSwgbGltaXRzID0gYygwLCAxMjUwMDApKQoKI0hvdyB3ZWxsIGRvIHRoZXkgbWF0Y2ggdXAgd2l0aCBvdXIgb3ZlcmFsbCBwb3B1bGF0aW9ucz8KcHJlZF9wb3BzICU+JQogIGdyb3VwX2J5KHllYXIpICU+JQogIHN1bW1hcmlzZShzdW1fcHJlZF9wb3AgPSBzdW0ocHJlZCkpICU+JQogIHJpZ2h0X2pvaW4ob3ZlcmFsbF9wb3BzKSAlPiUKICBzZWxlY3QoeWVhciwgc3VtX3ByZWRfcG9wLCBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCB0b3RhbF9wb3B1bGF0aW9uKSAlPiUKICBwaXZvdF9sb25nZXIoY29scyA9IGMoc3VtX3ByZWRfcG9wLCBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCB0b3RhbF9wb3B1bGF0aW9uKSkgJT4lCiAgZ2dwbG90KGFlcyh4PXllYXIsIHk9dmFsdWUsIGNvbG91cj1uYW1lKSkgKwogIGdlb21fcG9pbnQoKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IGNvbW1hLCBsaW1pdHMgPSBjKDgwMDAwMCwgMTI1MDAwMCkpCgpwcmVkX3BvcHMgJT4lCiAgZ3JvdXBfYnkoeWVhciwgc2V4KSAlPiUKICBzdW1tYXJpc2Uoc3VtID0gc3VtKHByZWQpKSAlPiUKICBncm91cF9ieSh5ZWFyKSAlPiUKICBtdXRhdGUoc2V4X3JhdGlvID0gZmlyc3Qoc3VtKS9sYXN0KHN1bSkpCmBgYAoKCldoYXQgcGVyY2VudGFnZSBvZiBhZHVsdHMgKDE1KyBwYXJ0aWNpcGF0ZWQgaW4gdGhlIGludGVydmVudGlvbiBpbiAxOTU3KT8KCmBgYHtyfQoKcHJlZF9wb3BzICU+JQogIHVuZ3JvdXAoKSAlPiUKICBmaWx0ZXIoeWVhcj09MTk1NykgJT4lCiAgZmlsdGVyKGFnZSAhPSAiMDAgdG8gMDQiLAogICAgICAgICBhZ2UgIT0gIjA1IHRvIDE0IikgJT4lCiAgc3VtbWFyaXNlKHRvdGFsX3BvcCA9IHN1bShwcmVkKSkgJT4lCiAgbXV0YXRlKGN4cl9zY3JlZW5lZCA9IDYyMjM0OSkgJT4lCiAgbXV0YXRlKHBjdF9wb3BfY3hyX3NjcmVlbmVkID0gcGVyY2VudChjeHJfc2NyZWVuZWQvdG90YWxfcG9wKSkKCnByZWRfcG9wcyAlPiUKICB1bmdyb3VwKCkgJT4lCiAgZmlsdGVyKHllYXI9PTE5NTcpICU+JQogIGZpbHRlcihhZ2UgIT0gIjAwIHRvIDA0IiwKICAgICAgICAgYWdlICE9ICIwNSB0byAxNCIpICU+JQogIHN1bW1hcmlzZSh0b3RhbF9wb3AgPSBzdW0ocHJlZCksIC5ieT1zZXgpICU+JQogIG11dGF0ZShjeHJfc2NyZWVuZWQgPSBjKDM0MDQ3NCwgMjgxODc1KSkgJT4lCiAgbXV0YXRlKHBjdF9wb3BfY3hyX3NjcmVlbmVkID0gcGVyY2VudChjeHJfc2NyZWVuZWQvdG90YWxfcG9wKSkKCgpgYGAKCgpQb3B1bGF0aW9uIHB5cmFtaWRzCgpgYGB7cn0KCmxhYmVsX2FicyA8LSBmdW5jdGlvbih4KSB7CiAgY29tbWEoYWJzKHgpKQp9CgoKcHJlZF9wb3BzICU+JQogIHVuZ3JvdXAoKSAlPiUKICBncm91cF9ieSh5ZWFyKSAlPiUKICBtdXRhdGUoeWVhcl9wb3AgPSBzdW0ocHJlZCksCiAgICAgICAgIGFnZV9zZXhfcGN0ID0gcGVyY2VudChwcmVkL3llYXJfcG9wLCBhY2N1cmFjeT0wLjEpKSAlPiUKICBtdXRhdGUoc2V4ID0gY2FzZV93aGVuKHNleD09Im1hbGUiIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0iZmVtYWxlIiB+ICJGZW1hbGUiKSkgJT4lCiAgZ2dwbG90KAogICAgYWVzKHggPSBhZ2UsIGZpbGwgPSBzZXgsIAogICAgICAgIHkgPSBpZmVsc2UodGVzdCA9IHNleCA9PSAiRmVtYWxlIix5ZXMgPSAtcHJlZCwgbm8gPSBwcmVkKSkpICsgCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIpICsKICBnZW9tX3RleHQoYWVzKGxhYmVsID0gYWdlX3NleF9wY3QpLAogICAgICAgICAgICBwb3NpdGlvbj0gcG9zaXRpb25fc3RhY2sodmp1c3Q9MC41KSwgY29sb3VyPSJ3aGl0ZSIsIHNpemU9Mi41KSArCiAgZmFjZXRfd3JhcCh5ZWFyfi4sIG5jb2w9NykgKwogIGNvb3JkX2ZsaXAoKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IGxhYmVsX2FicykgKwogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIm1lZGl1bXNlYWdyZWVuIiwgInB1cnBsZSIpLCBuYW1lPSIiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlPTkwLCBoanVzdCA9IDEsIHZqdXN0PTAuNSksCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9yZWN0KGNvbG91ciA9ICJncmV5NzgiLCBmaWxsPU5BKSkgKwogIGxhYnMoeD0iIiwgeT0iIikgCgoKZ2dzYXZlKGhlcmUoImZpZ3VyZXMvczMucG5nIiksIHdpZHRoPTEwKQoKCmBgYAoKTm90IHBlcmZlY3QsIGJ1dCByZXNvbmFibHkgZ29vZC4gQnV0IGFoaGhoaC4uLiB0aGUgYWdlIGdyb3VwcyBkb24ndCBhbGlnbiB3aXRoIHRoZSBjYXNlIG5vdGlmaWNhdGlvbiBhZ2UgZ3JvdXBzISBDb21lIGJhY2sgdG8gdGhpbmsgYWJvdXQgdGhpcyBsYXRlci4KCgojIyMgNC4gVHViZXJjdWxvc2lzIGNhc2VzCgpJbXBvcnQgdGhlIHR1YmVyY3Vsb3NpcyBjYXNlcyBkYXRhc2V0CgoKIyMjIyA0LjEgT3ZlcmFsbCBub3RpZmljYXRpb25zCgpPdmVyYWxsLCBieSB5ZWFyLgoKYGBge3J9CgpjYXNlc19ieV95ZWFyIDwtIHJlYWRfeGxzeCgiMjAyMy0xMS0yOF9nbGFzZ293LWFjZi54bHN4Iiwgc2hlZXQgPSAiYnlfeWVhciIpCgpjYXNlc19ieV95ZWFyJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+Y29tbWEoLikpKSAlPiUKICBkYXRhdGFibGUoKQoKCiNzaGlmdCB5ZWFyIHRvIG1pZHBvaW50CmNhc2VzX2J5X3llYXIgPC0gY2FzZXNfYnlfeWVhciAlPiUKICBtdXRhdGUoeWVhcjIgPSB5ZWFyKzAuNSkKCmBgYAoKUGxvdCB0aGUgb3ZlcmFsbCBudW1iZXIgb2YgY2FzZSBub3RpZmllZCBwZXIgeWVhciwgYnkgcHVsbW9uYXJ5IGFuZCBleHRyYSBwdWxtb25hcnkgY2xhc3NpZmljYXRpb24uCgpgYGB7cn0KCmNhc2VzX2J5X3llYXIgJT4lCiAgc2VsZWN0KC10b3RhbF9ub3RpZmljYXRpb25zLCAteWVhcikgJT4lCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKHB1bG1vbmFyeV9ub3RpZmljYXRpb25zLCBgbm9uLXB1bG1vbmFyeV9ub3RpZmljYXRpb25zYCkpICU+JQogIG11dGF0ZShuYW1lID0gY2FzZV93aGVuKG5hbWUgPT0gInB1bG1vbmFyeV9ub3RpZmljYXRpb25zIiB+ICJQdWxtb25hcnkgVEIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWUgPT0gIm5vbi1wdWxtb25hcnlfbm90aWZpY2F0aW9ucyIgfiAiRXh0cmEtcHVsbW9uYXJ5IFRCIikpICU+JQogIGdncGxvdCgpICsKICBnZW9tX2FyZWEoYWVzKHk9dmFsdWUsIHg9eWVhcjIsIGdyb3VwID0gbmFtZSwgZmlsbD1uYW1lKSwgYWxwaGE9MC41KSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzKSArCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJTZXQxIiwgbmFtZT0iIikgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJHbGFzZ293IENvcnBvcmF0aW9uOiBUdWJlcmN1bG9zaXMgbm90aWZpY2F0aW9ucyIsCiAgICBzdWJ0aXRsZSA9ICIxOTUwIHRvIDE5NjMsIGJ5IFRCIGRpc2Vhc2UgY2xhc3NpZmljYXRpb24iLAogICAgeCA9ICJZZWFyIiwKICAgIHkgPSAiTnVtYmVyIG9mIGNhc2VzIiwKICAgIGNhcHRpb24gPSAiTWFzcyBtaW5pYXR1cmUgWC1yYXkgY2FtcGFpZ24gcGVyaW9kIGJldHdlZW4gZGFzaGVkIGxpbmVzICgxMXRoIE1hcmNoLTEydGggQXByaWwgMTk1NykiCiAgKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKQogIAoKYGBgCgojIyMjIDQuMiBOb3RpZmljYXRpb25zIGJ5IERpdmlzaW9uCgpSZWFkIGluIHRoZSBkYXRhc2V0cyBhbmQgbWVyZ2UgdG9nZXRoZXIuCgpgYGB7cn0KCiNsaXN0IGFsbCB0aGUgc2hlZXRzCmFsbF9zaGVldHMgPC0gZXhjZWxfc2hlZXRzKCIyMDIzLTExLTI4X2dsYXNnb3ctYWNmLnhsc3giKQoKI2dldCB0aGUgd2FyZCBzaGVldHMKd2FyZF9zaGVldHMgPC0gZW5mcmFtZShhbGxfc2hlZXRzKSAlPiUKICBmaWx0ZXIoZ3JlcGwoImJ5X3dhcmQiLCB2YWx1ZSkpICU+JQogIHB1bGwodmFsdWUpCgoKY2FzZXNfYnlfd2FyZF9zZXhfeWVhciA8LSBtYXBfZGYod2FyZF9zaGVldHMsIH5yZWFkX3hsc3gocGF0aCA9ICIyMDIzLTExLTI4X2dsYXNnb3ctYWNmLnhsc3giLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNoZWV0ID0gLikpCgpjYXNlc19ieV93YXJkX3NleF95ZWFyICU+JQogIG11dGF0ZShhY3Jvc3Mod2hlcmUoaXMubnVtZXJpYykgJiAhKHllYXIpLCAgfmNvbW1hKC4pKSkgJT4lCiAgZGF0YXRhYmxlKCkKCmBgYAoKQWdncmVnYXRlIHRvZ2V0aGVyIHRvIGdldCBjYXNlcyBieSBkaXZpc2lvbgoKYGBge3J9CgpjYXNlc19ieV9kaXZpc2lvbiA8LSBjYXNlc19ieV93YXJkX3NleF95ZWFyICU+JQogIGxlZnRfam9pbih3YXJkX2xvb2t1cCkgJT4lCiAgZ3JvdXBfYnkoZGl2aXNpb24sIHllYXIsIHRiX3R5cGUpICU+JQogIHN1bW1hcmlzZShjYXNlcyA9IHN1bShjYXNlcywgbmEucm0gPSBUUlVFKSkKCiNzaGlmdCB5ZWFyIHRvIG1pZHBvaW50CmNhc2VzX2J5X2RpdmlzaW9uIDwtIGNhc2VzX2J5X2RpdmlzaW9uICU+JQogIG11dGF0ZSh5ZWFyMiA9IHllYXIrMC41KSAlPiUKICB1bmdyb3VwKCkKCmNhc2VzX2J5X2RpdmlzaW9uICAlPiUKICBzZWxlY3QoLXllYXIyKSAlPiUKICBzZWxlY3QoeWVhciwgZXZlcnl0aGluZygpKSAlPiUKICBtdXRhdGUoYWNyb3NzKHdoZXJlKGlzLm51bWVyaWMpICYgISh5ZWFyKSwgIH5jb21tYSguKSkpICU+JQogIGRhdGF0YWJsZSgpCgoKY2FzZXNfYnlfZGl2aXNpb24gJT4lCiAgbXV0YXRlKHRiX3R5cGUgPSBjYXNlX3doZW4odGJfdHlwZSA9PSAiUHVsbW9uYXJ5IiB+ICJQdWxtb25hcnkgVEIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIHRiX3R5cGUgPT0gIk5vbi1QdWxtb25hcnkiIH4gIkV4dHJhLXB1bG1vbmFyeSBUQiIpKSAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9hcmVhKGFlcyh5PWNhc2VzLCB4PXllYXIyLCBncm91cCA9IHRiX3R5cGUsIGZpbGw9dGJfdHlwZSksIGFscGhhPTAuNSkgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX3N0YXJ0KSwgbGluZXR5cGU9MykgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX2VuZCksIGxpbmV0eXBlPTMpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzPWNvbW1hKSArCiAgc2NhbGVfeF9jb250aW51b3VzKGxhYmVscyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBicmVha3MgPSB5ZWFyX2xhYmVscywKICAgICAgICAgICAgICAgICAgICAgZ3VpZGUgPSBndWlkZV9heGlzKGFuZ2xlID0gOTApKSArCiAgZmFjZXRfd3JhcChkaXZpc2lvbn4uLCBzY2FsZXMgPSAiZnJlZV95IikgKwogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiU2V0MSIsIG5hbWU9IiIpICsKICBsYWJzKAogICAgdGl0bGUgPSAiR2xhc2dvdyBDb3Jwb3JhdGlvbjogVHViZXJjdWxvc2lzIG5vdGlmaWNhdGlvbnMgYnkgRGl2aXNpb24iLAogICAgc3VidGl0bGUgPSAiMTk1MCB0byAxOTYzLCBieSBUQiBkaXNlYXNlIGNsYXNzaWZpY2F0aW9uIiwKICAgIHggPSAiWWVhciIsCiAgICB5ID0gIk51bWJlciBvZiBjYXNlcyIsCiAgICBjYXB0aW9uID0gIk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpXG5Ob3RlOiBleHRyYS1wdWxtb25hcnkgVEIgY2FzZXMgYnkgRGl2aXNpb24vV2FyZCBub3QgcmVwb3J0ZWQgaW4gMTk2Mi0xOTYzIgogICkgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikKCmBgYAoKIyMjIyA0LjMgTm90aWZpY2F0aW9ucyBieSB3YXJkCgpgYGB7cn0KCgpjYXNlc19ieV93YXJkIDwtIGNhc2VzX2J5X3dhcmRfc2V4X3llYXIgJT4lCiAgZ3JvdXBfYnkod2FyZCwgeWVhciwgdGJfdHlwZSkgJT4lCiAgc3VtbWFyaXNlKGNhc2VzID0gc3VtKGNhc2VzLCBuYS5ybSA9IFRSVUUpKSAlPiUKICB1bmdyb3VwKCkKCmNhc2VzX2J5X3dhcmQgJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+Y29tbWEoLikpKSAlPiUKICBzZWxlY3QoeWVhciwgZXZlcnl0aGluZygpKSAlPiUKICBkYXRhdGFibGUoKQoKI3NoaWZ0IHllYXIgdG8gbWlkcG9pbnQKY2FzZXNfYnlfd2FyZCA8LSBjYXNlc19ieV93YXJkICU+JQogIG11dGF0ZSh5ZWFyMiA9IHllYXIrMC41KQoKY2FzZXNfYnlfd2FyZCAlPiUKICBtdXRhdGUodGJfdHlwZSA9IGNhc2Vfd2hlbih0Yl90eXBlID09ICJQdWxtb25hcnkiIH4gIlB1bG1vbmFyeSBUQiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgdGJfdHlwZSA9PSAiTm9uLVB1bG1vbmFyeSIgfiAiRXh0cmEtcHVsbW9uYXJ5IFRCIikpICU+JQogIGdncGxvdCgpICsKICBnZW9tX2FyZWEoYWVzKHk9Y2FzZXMsIHg9eWVhcjIsIGdyb3VwID0gdGJfdHlwZSwgZmlsbD10Yl90eXBlKSwgYWxwaGE9MC44KSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBndWlkZSA9IGd1aWRlX2F4aXMoYW5nbGUgPSA5MCkpICsKICBmYWNldF93cmFwKHdhcmR+Liwgc2NhbGVzID0gImZyZWVfeSIpICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDEiLCBuYW1lPSIiKSArCiAgbGFicygKICAgIHRpdGxlID0gIkdsYXNnb3cgQ29ycG9yYXRpb246IFR1YmVyY3Vsb3NpcyBub3RpZmljYXRpb25zIGJ5IFdhcmQiLAogICAgc3VidGl0bGUgPSAiMTk1MCB0byAxOTYzLCBieSBUQiBkaXNlYXNlIGNsYXNzaWZpY2F0aW9uIiwKICAgIHggPSAiWWVhciIsCiAgICB5ID0gIk51bWJlciBvZiBjYXNlcyIsCiAgICBjYXB0aW9uID0gIk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpXG5Ob3RlOiBleHRyYS1wdWxtb25hcnkgVEIgY2FzZXMgYnkgRGl2aXNpb24vV2FyZCBub3QgcmVwb3J0ZWQgaW4gMTk2Mi0xOTYzIgogICkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKQoKCmBgYAoKIyMjIyA0LjQgTm90aWZpY2F0aW9ucyBieSBhZ2UgYW5kIHNleAoKQXMgd2UgZG9uJ3QgaGF2ZSBkZW5vbWluYXRvcnMsIHdlIHdpbGwganVzdCBtb2RlbCB0aGUgY2hhbmdlIGluIGNvdW50cy4KCmBgYHtyfQoKI2xpc3QgYWxsIHRoZSBzaGVldHMKYWxsX3NoZWV0cyA8LSBleGNlbF9zaGVldHMoIjIwMjMtMTEtMjhfZ2xhc2dvdy1hY2YueGxzeCIpCgojZ2V0IHRoZSB3YXJkIHNoZWV0cwphZ2Vfc2V4X3NoZWV0cyA8LSBlbmZyYW1lKGFsbF9zaGVldHMpICU+JQogIGZpbHRlcihncmVwbCgiYnlfYWdlX3NleCIsIHZhbHVlKSkgJT4lCiAgcHVsbCh2YWx1ZSkKCgpjYXNlc19ieV9hZ2Vfc2V4IDwtIG1hcF9kZihhZ2Vfc2V4X3NoZWV0cywgfnJlYWRfeGxzeChwYXRoID0gIjIwMjMtMTEtMjhfZ2xhc2dvdy1hY2YueGxzeCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hlZXQgPSAuKSkKCmNhc2VzX2J5X2FnZV9zZXggJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+Y29tbWEoLikpKSAlPiUKICBkYXRhdGFibGUoKQoKCmBgYAoKCgoKIyMjIDUgVEIgY2FzZSBub3RpZmljYXRpb24gcmF0ZXMKCiMjIyMgNS4xIE92ZXJhbGwgVEIgY2FzZSBub3RpZmljYXRpb24gcmF0ZXMKCk5vdyBjYWxjdWxhdGUgY2FzZSBub3RpZmljYXRpb24gcmF0ZXMgcGVyIDEwMCwwMDAgcG9wdWxhdGlvbgoKTWVyZ2UgdGhlIG5vdGlmaWNhdGlvbiBhbmQgcG9wdWxhdGlvbiBkZW5vbWluYXRvciBkYXRhc2V0cyB0b2dldGhlci4KCkhlcmUgd2UgbmVlZCB0byBpbmNsdWRlIHRoZSB3aG9sZSBwb3B1bGF0aW9uICh3aXRoIHNoaXBwaW5nIGFuZCBpbnN0aXR1dGlvbnMpIGFzIHRoZXkgYXJlIGluY2x1ZGVkIGluIHRoZSBub3RpZmljYXRpb25zLgoKYGBge3J9CgpvdmVyYWxsX2luYyA8LSBvdmVyYWxsX3BvcHMgJT4lCiAgbGVmdF9qb2luKGNhc2VzX2J5X3llYXIpCgpvdmVyYWxsX2luYyA8LSBvdmVyYWxsX2luYyAlPiUKICBtdXRhdGUoaW5jX3B1bG1fMTAwayA9IHB1bG1vbmFyeV9ub3RpZmljYXRpb25zL3RvdGFsX3BvcHVsYXRpb24qMTAwMDAwLAogICAgICAgICBpbmNfZXBfMTAwayA9IGBub24tcHVsbW9uYXJ5X25vdGlmaWNhdGlvbnNgL3RvdGFsX3BvcHVsYXRpb24qMTAwMDAwLAogICAgICAgICBpbmNfMTAwayA9IHRvdGFsX25vdGlmaWNhdGlvbnMvdG90YWxfcG9wdWxhdGlvbioxMDAwMDApCgpvdmVyYWxsX2luYyAlPiUKICBzZWxlY3QoeWVhciwgaW5jXzEwMGssIGluY19wdWxtXzEwMGssIGluY19lcF8xMDBrKSAlPiUKICBtdXRhdGVfYXQoLnZhcnMgPSB2YXJzKGluY18xMDBrLCBpbmNfcHVsbV8xMDBrLCBpbmNfZXBfMTAwayksCiAgICAgICAgICAgIC5mdW5zID0gZnVucyhyb3VuZCkpICU+JQogIGRhdGF0YWJsZSgpCgpgYGAKCmBgYHtyfQoKb3ZlcmFsbF9pbmMgJT4lCiAgc2VsZWN0KHllYXIyLCBpbmNfcHVsbV8xMDBrLCBpbmNfZXBfMTAwaykgJT4lCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGluY19wdWxtXzEwMGssIGBpbmNfZXBfMTAwa2ApKSAlPiUKICBtdXRhdGUobmFtZSA9IGNhc2Vfd2hlbihuYW1lID09ICJpbmNfcHVsbV8xMDBrIiB+ICJQdWxtb25hcnkgVEIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWUgPT0gImluY19lcF8xMDBrIiB+ICJFeHRyYS1wdWxtb25hcnkgVEIiKSkgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fYXJlYShhZXMoeT12YWx1ZSwgeD15ZWFyMiwgZ3JvdXAgPSBuYW1lLCBmaWxsPW5hbWUpLCBhbHBoYT0wLjUpICsKICBnZW9tX3ZsaW5lKGFlcyh4aW50ZXJjZXB0PWFjZl9zdGFydCksIGxpbmV0eXBlPTMpICsKICBnZW9tX3ZsaW5lKGFlcyh4aW50ZXJjZXB0PWFjZl9lbmQpLCBsaW5ldHlwZT0zKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscz1jb21tYSkgKwogIHNjYWxlX3hfY29udGludW91cyhsYWJlbHMgPSB5ZWFyX2xhYmVscywKICAgICAgICAgICAgICAgICAgICAgYnJlYWtzID0geWVhcl9sYWJlbHMpICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDEiLCBuYW1lPSIiKSArCiAgbGFicygKICAgIHRpdGxlID0gIkdsYXNnb3cgQ29ycG9yYXRpb246IFR1YmVyY3Vsb3NpcyBjYXNlIG5vdGlmaWNhdGlvbiByYXRlIiwKICAgIHN1YnRpdGxlID0gIjE5NTAgdG8gMTk2MywgYnkgVEIgZGlzZWFzZSBjbGFzc2lmaWNhdGlvbiIsCiAgICB4ID0gIlllYXIiLAogICAgeSA9ICJDYXNlIG5vdGlmaWNhdGlvbiByYXRlIChwZXIgMTAwLDAwMCkiLAogICAgY2FwdGlvbiA9ICJNYXNzIG1pbmlhdHVyZSBYLXJheSBjYW1wYWlnbiBwZXJpb2QgYmV0d2VlbiBkYXNoZWQgbGluZXMgKDExdGggTWFyY2gtMTJ0aCBBcHJpbCAxOTU3KSIKICApICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIpCgoKCmBgYAoKIyMjIyA1LjIgVEIgY2FzZSBub3RpZmljYXRpb24gcmF0ZXMgYnkgRGl2aXNpb24KCmBgYHtyfQoKZGl2aXNpb25faW5jIDwtIGRpdmlzaW9uX3BvcHMgJT4lCiAgbGVmdF9qb2luKGNhc2VzX2J5X2RpdmlzaW9uKQoKCmRpdmlzaW9uX2luYyA8LSBkaXZpc2lvbl9pbmMgJT4lCiAgbXV0YXRlKGluY18xMDBrID0gY2FzZXMvdG90YWxfcG9wdWxhdGlvbioxMDAwMDApCgpkaXZpc2lvbl9pbmMgJT4lCiAgc2VsZWN0KHllYXIsIGRpdmlzaW9uLCB0Yl90eXBlLCBpbmNfMTAwaykgJT4lCiAgbXV0YXRlX2F0KC52YXJzID0gdmFycyhpbmNfMTAwayksCiAgICAgICAgICAgIC5mdW5zID0gZnVucyhyb3VuZCkpICU+JQogIGRhdGF0YWJsZSgpCgoKYGBgCgpgYGB7cn0KCmRpdmlzaW9uX2luYyAlPiUKICBtdXRhdGUodGJfdHlwZSA9IGNhc2Vfd2hlbih0Yl90eXBlID09ICJQdWxtb25hcnkiIH4gIlB1bG1vbmFyeSBUQiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgdGJfdHlwZSA9PSAiTm9uLVB1bG1vbmFyeSIgfiAiRXh0cmEtcHVsbW9uYXJ5IFRCIikpICU+JQogIGdncGxvdCgpICsKICBnZW9tX2FyZWEoYWVzKHk9aW5jXzEwMGssIHg9eWVhcjIsIGdyb3VwID0gdGJfdHlwZSwgZmlsbD10Yl90eXBlKSwgYWxwaGE9MC41KSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBndWlkZSA9IGd1aWRlX2F4aXMoYW5nbGUgPSA5MCkpICsKICBmYWNldF93cmFwKGRpdmlzaW9ufi4pICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDEiLCBuYW1lPSIiKSArCiAgbGFicygKICAgIHRpdGxlID0gIkdsYXNnb3cgQ29ycG9yYXRpb246IFR1YmVyY3Vsb3NpcyBjYXNlIG5vdGlmaWNhdGlvbiByYXRlLCBieSBEaXZpc2lvbiIsCiAgICBzdWJ0aXRsZSA9ICIxOTUwIHRvIDE5NjMsIGJ5IFRCIGRpc2Vhc2UgY2xhc3NpZmljYXRpb24iLAogICAgeCA9ICJZZWFyIiwKICAgIHkgPSAiQ2FzZSBub3RpZmljYXRpb24gcmF0ZSAocGVyIDEwMCwwMDApIiwKICAgIGNhcHRpb24gPSAiTWFzcyBtaW5pYXR1cmUgWC1yYXkgY2FtcGFpZ24gcGVyaW9kIGJldHdlZW4gZGFzaGVkIGxpbmVzICgxMXRoIE1hcmNoLTEydGggQXByaWwgMTk1Nylcbk5vdGU6IGV4dHJhLXB1bG1vbmFyeSBUQiBjYXNlcyBieSBEaXZpc2lvbi9XYXJkIG5vdCByZXBvcnRlZCBpbiAxOTYyLTE5NjMiCiAgKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKQoKCgpgYGAKCiMjIyMgNS4yIFRCIGNhc2Ugbm90aWZpY2F0aW9uIHJhdGVzIGJ5IFdhcmQKCkhlcmUgd2Ugd2lsbCBmaWx0ZXIgb3V0IHRoZSBpbnN0aXR1dGlvbnMgYW5kIGhhcmJvdXIgZnJvbSB0aGUgZGVub21pbmF0b3JzLCBhcyB3ZSBkb24ndCBoYXZlIHJlbGlhYmxlIHBvcHVsYXRpb24gZGVub21pbmF0b3JzIGZvciB0aGVtLgoKYGBge3J9Cgp3YXJkX2luYyA8LSB3YXJkX3BvcHMgJT4lCiAgbGVmdF9qb2luKGNhc2VzX2J5X3dhcmQpCgoKd2FyZF9pbmMgPC0gd2FyZF9pbmMgJT4lCiAgbXV0YXRlKGluY18xMDBrID0gY2FzZXMvcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCoxMDAwMDApCgp3YXJkX2luYyAlPiUKICBzZWxlY3QoeWVhciwgd2FyZCwgdGJfdHlwZSwgaW5jXzEwMGspICU+JQogIG11dGF0ZV9hdCgudmFycyA9IHZhcnMoaW5jXzEwMGspLAogICAgICAgICAgICAuZnVucyA9IGZ1bnMocm91bmQpKSAlPiUKICBkYXRhdGFibGUoKQoKCmBgYAoKCmBgYHtyfQoKd2FyZF9pbmMgJT4lCiAgbXV0YXRlKHRiX3R5cGUgPSBjYXNlX3doZW4odGJfdHlwZSA9PSAiUHVsbW9uYXJ5IiB+ICJQdWxtb25hcnkgVEIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIHRiX3R5cGUgPT0gIk5vbi1QdWxtb25hcnkiIH4gIkV4dHJhLXB1bG1vbmFyeSBUQiIpKSAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9hcmVhKGFlcyh5PWluY18xMDBrLCB4PXllYXIyLCBncm91cCA9IHRiX3R5cGUsIGZpbGw9dGJfdHlwZSksIGFscGhhPTAuNSkgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX3N0YXJ0KSwgbGluZXR5cGU9MykgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX2VuZCksIGxpbmV0eXBlPTMpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzPWNvbW1hKSArCiAgc2NhbGVfeF9jb250aW51b3VzKGxhYmVscyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBicmVha3MgPSB5ZWFyX2xhYmVscywKICAgICAgICAgICAgICAgICAgICAgZ3VpZGUgPSBndWlkZV9heGlzKGFuZ2xlID0gOTApKSArCiAgZmFjZXRfd3JhcCh3YXJkfi4pICsKICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIlNldDEiLCBuYW1lPSIiKSArCiAgbGFicygKICAgIHRpdGxlID0gIkdsYXNnb3cgQ29ycG9yYXRpb246IFR1YmVyY3Vsb3NpcyBjYXNlIG5vdGlmaWNhdGlvbiByYXRlLCBieSBXYXJkIiwKICAgIHN1YnRpdGxlID0gIjE5NTAgdG8gMTk2MywgYnkgVEIgZGlzZWFzZSBjbGFzc2lmaWNhdGlvbiIsCiAgICB4ID0gIlllYXIiLAogICAgeSA9ICJJbmNpZGVuY2UgKHBlciAxMDAsMDAwKSIsCiAgICBjYXB0aW9uID0gIk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpXG5Ob3RlOiBleHRyYS1wdWxtb25hcnkgVEIgY2FzZXMgYnkgRGl2aXNpb24vV2FyZCBub3QgcmVwb3J0ZWQgaW4gMTk2Mi0xOTYzIgogICkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iKQoKCgoKYGBgCgpPbiBhIG1hcAoKYGBge3IsIHdhcm5pbmc9RkFMU0V9CgpzdF9hc19zZihsZWZ0X2pvaW4od2FyZF9pbmMsIGdsYXNnb3dfd2FyZHNfMTk1MSkpICU+JQogIGZpbHRlcih0Yl90eXBlPT0iUHVsbW9uYXJ5IikgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fc2YoYWVzKGZpbGw9aW5jXzEwMGspKSArCiAgZmFjZXRfd3JhcCh5ZWFyfi4sIG5jb2wgPSA3KSArCiAgc2NhbGVfZmlsbF92aXJpZGlzX2MobmFtZT0iQ2FzZSBub3RpZmljYXRpb24gcmF0ZSAocGVyIDEwMCwwMDApIiwKICAgICAgICAgICAgICAgICAgICAgICBvcHRpb24gPSAiQSIpICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInRvcCIsCiAgICAgICAgbGVnZW5kLmtleS53aWR0aCA9IHVuaXQoMiwgImNtIiksCiAgICAgICAgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9yZWN0KGNvbG91ciA9ICJncmV5NzgiLCBmaWxsPU5BKSkgKwogIGd1aWRlcyhmaWxsPWd1aWRlX2NvbG9yYmFyKHRpdGxlLnBvc2l0aW9uID0gInRvcCIpKQoKCgpgYGAKCgojIyMgNi4gVEIgTW9ydGFsaXR5CgojIyMjIDYuMSBPdmVyYWxsIE1vcnRhbGl0eQoKSW1wb3J0IHRoZSBUQiBtb3J0YWxpdHkgZGF0YS4KCkZpcnN0LCBvdmVyYWxsIGRlYXRocy4gTm90ZSB0aGF0IGluIHRoZSBvcmlnaW5hbCByZXBvcnRzLCB3ZSBoYXZlIGEgcHVsbW9uYXJ5IFRCIGRlYXRoIHJhdGUgcGVyIG1pbGxpb24gZm9yIGFsbCB5ZWFycywgYW5kIG51bWJlcnMgb2YgcHVsbW9uYXJ5IFRCIGRlYXRocyBmb3IgZWFjaCB5ZWFyIGFwYXJ0IGZyb20gMTk1MC4KCmBgYHtyfQoKI2dldCB0aGUgb3ZlcmFsbCBtb3J0YWxpdHkgc2hlZXRzCmRlYXRoc19zaGVldHMgPC0gZW5mcmFtZShhbGxfc2hlZXRzKSAlPiUKICBmaWx0ZXIoZ3JlcGwoImRlYXRocyIsIHZhbHVlKSkgJT4lCiAgcHVsbCh2YWx1ZSkKCgpvdmVyYWxsX2RlYXRocyA8LSBtYXBfZGYoZGVhdGhzX3NoZWV0cywgfnJlYWRfeGxzeChwYXRoID0gIjIwMjMtMTEtMjhfZ2xhc2dvdy1hY2YueGxzeCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2hlZXQgPSAuKSkKCm92ZXJhbGxfZGVhdGhzICU+JQogIG11dGF0ZShhY3Jvc3Mod2hlcmUoaXMubnVtZXJpYykgJiAhKHllYXIpLCAgfmNvbW1hKC4pKSkgJT4lCiAgZGF0YXRhYmxlKCkKCgoKYGBgCgpQbG90IHRoZSByYXcgbnVtYmVycyBvZiBwdWxtb25hcnkgZGVhdGhzCgpgYGB7cn0KCm92ZXJhbGxfZGVhdGhzICU+JQogIGdncGxvdChhZXMoeD15ZWFyLCB5PXB1bG1vbmFyeV9kZWF0aHMpKSArCiAgZ2VvbV9saW5lKGNvbG91ciA9ICIjREUwRDkyIikgKwogIGdlb21fcG9pbnQoY29sb3VyID0gIiNERTBEOTIiKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIGxhYnMoeT0iUHVsbW9uYXJ5IFRCIGRlYXRocyBwZXIgeWVhciIsCiAgICAgICB4ID0gIlllYXIiLAogICAgICAgdGl0bGUgPSAiTnVtYmVycyBvZiBwdWxtb25hcnkgVEIgZGVhdGhzIiwKICAgICAgIHN1YnRpdGxlID0gIkdsYXNnb3csIDE5NTAtMTk2MyIsCiAgICBjYXB0aW9uID0gIk1hc3MgbWluaWF0dXJlIFgtcmF5IGNhbXBhaWduIHBlcmlvZCBiZXR3ZWVuIGRhc2hlZCBsaW5lcyAoMTF0aCBNYXJjaC0xMnRoIEFwcmlsIDE5NTcpXG5Ob3RlOiBubyBkYXRhIGZvciAxOTUwIikgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKQoKCmBgYAoKTm93IHRoZSBpbmNpZGVuY2Ugb2YgcHVsbW9uYXJ5IFRCIGRlYXRoCgpgYGB7cn0Kb3ZlcmFsbF9kZWF0aHMgJT4lCiAgZ2dwbG90KGFlcyh4PXllYXIsIHk9cHVsbW9uYXJ5X2RlYXRoX3JhdGVfcGVyXzEwMGspKSArCiAgZ2VvbV9saW5lKGNvbG91ciA9ICIjNEQ2Q0ZBIikgKwogIGdlb21fcG9pbnQoY29sb3VyID0gIiM0RDZDRkEiKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2Zfc3RhcnQpLCBsaW5ldHlwZT0zKSArCiAgZ2VvbV92bGluZShhZXMoeGludGVyY2VwdD1hY2ZfZW5kKSwgbGluZXR5cGU9MykgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzKSArCiAgbGFicyh5PSJBbm51YWwgaW5jaWRlbmNlIG9mIGRlYXRoIChwZXIgMTAwLDAwMCkiLAogICAgICAgeCA9ICJZZWFyIiwKICAgIGNhcHRpb24gPSAiTWFzcyBtaW5pYXR1cmUgWC1yYXkgY2FtcGFpZ24gcGVyaW9kIGJldHdlZW4gZGFzaGVkIGxpbmVzICgxMXRoIE1hcmNoLTEydGggQXByaWwgMTk1NykiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSkpCgpnZ3NhdmUoaGVyZSgiZmlndXJlcy9zNy5wbmciKSwgd2lkdGg9MTApCgpgYGAKCgojIyMgNi4gVGFibGUgMQoKTWFrZSBUYWJsZSAxIGhlcmUsIGFuZCBzYXZlIGZvciBwdWJsaWNhdGlvbi4KCmBgYHtyfQoKb3ZlcmFsbF9wb3BzICU+JSAKICBzZWxlY3QoeWVhciwgdG90YWxfcG9wdWxhdGlvbikgJT4lCiAgbGVmdF9qb2luKG92ZXJhbGxfaW5jICU+JQogICAgICAgICAgICAgIHNlbGVjdCh5ZWFyLCAKICAgICAgICAgICAgICAgICAgICAgcHVsbW9uYXJ5X25vdGlmaWNhdGlvbnMsIGluY19wdWxtXzEwMGssCiAgICAgICAgICAgICAgICAgICAgIGBub24tcHVsbW9uYXJ5X25vdGlmaWNhdGlvbnNgLCBpbmNfZXBfMTAwaywKICAgICAgICAgICAgICAgICAgICAgdG90YWxfbm90aWZpY2F0aW9ucywgaW5jXzEwMGspKSAlPiUKICBsZWZ0X2pvaW4ob3ZlcmFsbF9kZWF0aHMgJT4lCiAgICAgICAgICAgICAgc2VsZWN0KHllYXIsCiAgICAgICAgICAgICAgICAgICAgIHB1bG1vbmFyeV9kZWF0aHMsIHB1bG1vbmFyeV9kZWF0aF9yYXRlX3Blcl8xMDBrKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+cm91bmQoLiwgZGlnaXRzPTEpKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyh3aGVyZShpcy5udW1lcmljKSAmICEoeWVhciksICB+Y29tbWEoLikpKSAKCmBgYAoKClByZXBhcmUgdGhlIGRhdGFzZXRzIGZvciBtb2RlbGxpbmcKCmBgYHtyfQoKbWRhdGEgPC0gd2FyZF9pbmMgJT4lCiAgZmlsdGVyKHRiX3R5cGU9PSJQdWxtb25hcnkiKSAlPiUKICBtdXRhdGUoYWNmX3BlcmlvZCA9IGNhc2Vfd2hlbih5ZWFyICVpbiUgYygxOTUwOjE5NTYpIH4gImEuIHByZS1hY2YiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllYXIgJWluJSBjKDE5NTcpIH4gImIuIGFjZiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVhciAlaW4lIGMoMTk1ODoxOTYzKSB+ICJjLiBwb3N0LWFjZiIpKSAlPiUKICBncm91cF9ieSh3YXJkKSAlPiUKICBtdXRhdGUoeV9udW0gPSByb3dfbnVtYmVyKCkpICU+JQogIHVuZ3JvdXAoKQoKbWRhdGFfZXh0cmFwdWxtb25hcnkgPC0gd2FyZF9pbmMgJT4lCiAgZmlsdGVyKHRiX3R5cGU9PSJOb24tUHVsbW9uYXJ5IikgJT4lCiAgbXV0YXRlKGFjZl9wZXJpb2QgPSBjYXNlX3doZW4oeWVhciAlaW4lIGMoMTk1MDoxOTU2KSB+ICJhLiBwcmUtYWNmIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ZWFyICVpbiUgYygxOTU3KSB+ICJiLiBhY2YiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllYXIgJWluJSBjKDE5NTg6MTk2MykgfiAiYy4gcG9zdC1hY2YiKSkgJT4lCiAgZ3JvdXBfYnkod2FyZCkgJT4lCiAgbXV0YXRlKHlfbnVtID0gcm93X251bWJlcigpKSAlPiUKICB1bmdyb3VwKCkgJT4lIAogIGZpbHRlcih5ZWFyPD0xOTYxKSAjbm8gZGF0YSBmb3IgMTk2MiBhbmQgMTk2MwoKCiNzY2FmZm9sZCBmb3Igb3ZlcmFsbCBwcmVkaWN0aW9ucwpvdmVyYWxsX3NjYWZmb2xkIDwtIG1kYXRhICU+JQogICAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWNmX3BlcmlvZCwgcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgd2FyZCwgY2FzZXMpICU+JQogICAgZ3JvdXBfYnkoeWVhciwgeWVhcjIsIHlfbnVtLCBhY2ZfcGVyaW9kKSAlPiUKICAgIHN1bW1hcmlzZShwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwID0gc3VtKHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXApLAogICAgICAgICAgICAgIGNhc2VzID0gc3VtKGNhc2VzKSkgJT4lCiAgICB1bmdyb3VwKCkgJT4lCiAgICBtdXRhdGUoaW5jXzEwMGsgPSBjYXNlcy9wb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwKjEwMDAwMCkgJT4lCiAgICBsZWZ0X2pvaW4obWRhdGFfZXh0cmFwdWxtb25hcnkgJT4lIGdyb3VwX2J5KHllYXIpICU+JQogICAgICAgICAgICAgICAgc3VtbWFyaXNlKGNhc2VzX2V4dHJhcHVsbW9uYXJ5ID0gc3VtKGNhc2VzKSkpICU+JQogICAgbXV0YXRlKGluY18xMDBrX2V4dHJhcHVsbW9uYXJ5ID0gY2FzZXNfZXh0cmFwdWxtb25hcnkvcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCoxMDAwMDApCgpgYGAKCgojIyMgNy4gUHVsbW9uYXJ5IFRCIG1vZGVsCgojIyMjIDcuMSBGaXQgdGhlIG1vZGVsIGFuZCBwcmlvcnMKClRoaXMgbW9kZWxzIHRoZSBjYXNlIG5vdGlmaWNhdGlvbiByYXRlIG92ZXIgdGltZSwgd2l0aCBhIHN0ZXAgY2hhbmdlIGZvciB0aGUgaW50ZXJ2ZW50aW9uLCBhbmQgc2xvcGUgY2hhbmdlIGFmdGVyIHRoZSBpbnRlcnZlbnRpb24uCgpXb3JrIG9uIHRoZSBwcmlvcnMgYSBiaXQuIFdlIHdpbGwgYnVpbGQgdXAgZnJvbSBsZXNzIGNvbXBsZXggdG8gbW9yZSBjb21wbGV4LgoKYSkgaW50ZXJjZXB0IG9ubHksIHRvIHByZWRpY3QgY291bnQgb2YgY2FzZXMKCmF0IHRoZSBpbnRlcmNlcHQsIHdlIGV4cGVjdCBzb21ld2hlcmUgYXJvdW5kIDI1MDAuIFdlIHdpbGwgc2V0IHRoZSBzdGFuZGFyZCBkZXZpYXRpb24gdG8gYm90aCAwLjUgYW5kIDEgdG8gY2hlY2sgd2hhdCBpdCBsb29rcyBsaWtlCgpgYGB7cn0KCmMocHJpb3IobG9nbm9ybWFsKDcuNjAwOTAyLCAwLjUpKSwgI2xvZygyNTAwKSA9IDcuNjAwOTAyCiAgcHJpb3IobG9nbm9ybWFsKDcuNjAwOTAyLCAxKSkpICU+JSAKICBwYXJzZV9kaXN0KCkgJT4lIAogIAogIGdncGxvdChhZXMoeSA9IHByaW9yLCBkaXN0ID0gLmRpc3QsIGFyZ3MgPSAuYXJncykpICsKICBzdGF0X2hhbGZleWUoLndpZHRoID0gYyguNSwgLjk1KSkgKwogIHNjYWxlX3lfZGlzY3JldGUoTlVMTCwgbGFiZWxzID0gc3RyX2MoImxvZ25vcm1hbChsb2coMjAwMCksICIsIGMoMC41LCAxKSwgIikiKSwKICAgICAgICAgICAgICAgICAgIGV4cGFuZCA9IGV4cGFuc2lvbihhZGQgPSAwLjEpKSArCiAgeGxhYihleHByZXNzaW9uKGV4cChpdGFsaWMocCkoYmV0YVswXSkpKSkgKwogIGNvb3JkX2NhcnRlc2lhbih4bGltID0gYygwLDE1MDAwKSkKCgpwcmlvcihnYW1tYSgxLCAwLjAxKSkgJT4lCiAgcGFyc2VfZGlzdCgpICU+JQogIGdncGxvdChhZXMoeT1wcmlvciwgZGlzdCA9IC5kaXN0LCBhcmdzID0gLmFyZ3MpKSArCiAgc3RhdF9oYWxmZXllKC53aWR0aCA9IGMoMC41LCAwLjk1KSkKCiNub3cgZml0IHRvIGEgbW9kZWwsIGFuZCBwbG90IHNvbWUgcHJpb3IgcmVhbGlzYXRpb25zCgptX3ByaW9yMSA8LSBicm0oCiAgY2FzZXMgfiAwICsgSW50ZXJjZXB0LAogIGZhbWlseSA9IG5lZ2Jpbm9taWFsKCksCiAgZGF0YSA9IG92ZXJhbGxfc2NhZmZvbGQsCiAgc2FtcGxlX3ByaW9yID0gIm9ubHkiLAogIHByaW9yID0gcHJpb3Iobm9ybWFsKGxvZygyMDAwKSwgMC41KSwgY2xhc3MgPSBiLCBjb2VmID0gSW50ZXJjZXB0KSArCiAgICAgICAgICBwcmlvcihnYW1tYSgxLCAwLjAxKSwgY2xhc3MgPSBzaGFwZSkKKQoKYWRkX2VwcmVkX2RyYXdzKG9iamVjdD1tX3ByaW9yMSwKICAgICAgICAgICAgICAgIG5ld2RhdGEgPSB0aWJibGUoaW50ZXJjZXB0PTEpKSAlPiUKICBnZ3Bsb3QoYWVzKHg9aW50ZXJjZXB0LCB5PS5lcHJlZCkpICsKICBzdGF0X2hhbGZleWUoKSArCiAgc2NhbGVfeV9sb2cxMChsYWJlbHMgPSBjb21tYSkKCgpgYGAKCk5vdyB0cnkgdG8gYWRkIGluIGEgdGVybSBmb3IgdGhlIGVmZmVjdCBvZiB5X251bS4gV2UgYW50aWNwYXRlIHRoYXQgdGhlIG51bWJlciBvZiBjYXNlcyB3aWxsIGRlY2xpbmUgYnkgYWJvdXQgMS01JSBwZXIgeWVhci4gSG93ZXZlciwgYXMgd2UgYXJlIHByZXR0eSB1bmNlcnRhaW4gYWJvdXQgdGhpcywgd2Ugd2lsbCBqdXN0IGVuY29kZSBhIHdlYWtseSByZWd1bGFyaXNpbmcgcHJpb3IgdG8gcmVzdHJpY3QgdGhlIHllYXIgc2l6ZSB0byBzZW5zaWJsZSByYW5nZXMuCgpgYGB7cn0KCgptX3ByaW9yMiA8LSBicm0oCiAgY2FzZXMgfiAwICsgSW50ZXJjZXB0ICsgeV9udW0sCiAgZmFtaWx5ID0gbmVnYmlub21pYWwoKSwKICBkYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCwKICBzYW1wbGVfcHJpb3IgPSAib25seSIsCiAgcHJpb3IgPSBwcmlvcihub3JtYWwobG9nKDIwMDApLCAwLjUpLCBjbGFzcyA9IGIsIGNvZWYgPSBJbnRlcmNlcHQpICsKICAgICAgICAgIHByaW9yKGdhbW1hKDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICBwcmlvcihub3JtYWwoMCwgMC4wMSksIGNsYXNzID0gYiwgY29lZiA9IHlfbnVtKQopCgphZGRfZXByZWRfZHJhd3Mob2JqZWN0PW1fcHJpb3IyLAogICAgICAgICAgICAgICAgbmV3ZGF0YSA9IG92ZXJhbGxfc2NhZmZvbGQpICU+JQogIGdncGxvdChhZXMoeD15ZWFyLCB5PS5lcHJlZCkpICsKICBzdGF0X2hhbGZleWUoKSArCiAgc2NhbGVfeV9sb2cxMChsYWJlbD1jb21tYSkKCmBgYAoKTm93IHdlIHdhbnQgdG8gYWRkIGluIGEgcHJpb3IgZm9yIHRoZSBlZmZlY3Qgb2YgdGhlIGFjZl9pbnRlcnZlbnRpb24uIFdlIGFudGljaXBhdGUgdGhlIHBlYWsgdG8gYmUgYW55d2hlcmUgYmV0d2VlbiBubyBlZmZlY3QsIGFuZCBhIHRyaXBsaW5nCgpgYGB7cn0KCm1fcHJpb3IzIDwtIGJybSgKICBjYXNlcyB+IDAgKyBJbnRlcmNlcHQgKyB5X251bSArIGFjZl9wZXJpb2QsCiAgZmFtaWx5ID0gbmVnYmlub21pYWwoKSwKICBkYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCwKICBzYW1wbGVfcHJpb3IgPSAib25seSIsCiAgcHJpb3IgPSBwcmlvcihub3JtYWwobG9nKDIwMDApLCAwLjUpLCBjbGFzcyA9IGIsIGNvZWYgPSBJbnRlcmNlcHQpICsKICAgICAgICAgIHByaW9yKGdhbW1hKDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICBwcmlvcihub3JtYWwoMCwgMC4wMSksIGNsYXNzID0gYiwgY29lZiA9IHlfbnVtKSArCiAgICAgICAgICBwcmlvcihub3JtYWwoMCwgMC4wMDEpLCBjbGFzcyA9IGIpCikKCgphZGRfZXByZWRfZHJhd3Mob2JqZWN0PW1fcHJpb3IzLAogICAgICAgICAgICAgICAgbmV3ZGF0YSA9IG92ZXJhbGxfc2NhZmZvbGQpICU+JQogIGdncGxvdChhZXMoeD15ZWFyLCB5PS5lcHJlZCkpICsKICBzdGF0X2hhbGZleWUoKSArCiAgc2NhbGVfeV9sb2cxMChsYWJlbHMgPSBjb21tYSkKCgoKYGBgCgpOb3cgd2UgbG9vayBhbmQgc2VlIHdoYXQgaXQgbG9va3MgbGlrZSB3aXRoIHRoZSBpbnRlcmFjdGlvbnMKCmBgYHtyfQoKbV9wcmlvcjQgPC0gYnJtKAogIGNhc2VzIH4gMCArIEludGVyY2VwdCArIHlfbnVtICsgYWNmX3BlcmlvZCArIHlfbnVtOmFjZl9wZXJpb2QsCiAgZmFtaWx5ID0gbmVnYmlub21pYWwoKSwKICBkYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCwKICBzYW1wbGVfcHJpb3IgPSAib25seSIsCiAgcHJpb3IgPSBwcmlvcihub3JtYWwobG9nKDI1MDApLCAxKSwgY2xhc3MgPSBiLCBjb2VmID0gSW50ZXJjZXB0KSArCiAgICAgICAgICBwcmlvcihnYW1tYSgxLCAwLjAxKSwgY2xhc3MgPSBzaGFwZSkgKwogICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDAuMDEpLCBjbGFzcyA9IGIpCikKCmFkZF9lcHJlZF9kcmF3cyhvYmplY3Q9bV9wcmlvcjQsCiAgICAgICAgICAgICAgICBuZXdkYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCkgJT4lCiAgZ2dwbG90KGFlcyh4PXllYXIsIHk9LmVwcmVkKSkgKwogIHN0YXRfaGFsZmV5ZSgpICsKICBzY2FsZV95X2xvZzEwKGxhYmVsPWNvbW1hKQoKCgpgYGAKCk5vdyB0cnkgYWRkaW5nIGluIHRoZSByYW5kb20gaW50ZXJjZXB0cwoKYGBge3J9CgpjKHByaW9yKGxvZ25vcm1hbCgzLjkxMjAyMywgMC41KSksICNsb2coNTApID0gMy45MTIwMjMKICBwcmlvcihsb2dub3JtYWwoMy45MTIwMjMsIDEpKSkgJT4lIAogIHBhcnNlX2Rpc3QoKSAlPiUgCiAgCiAgZ2dwbG90KGFlcyh5ID0gcHJpb3IsIGRpc3QgPSAuZGlzdCwgYXJncyA9IC5hcmdzKSkgKwogIHN0YXRfaGFsZmV5ZSgud2lkdGggPSBjKC41LCAuOTUpKSArCiAgc2NhbGVfeV9kaXNjcmV0ZShOVUxMLCBsYWJlbHMgPSBzdHJfYygibG9nbm9ybWFsKGxvZyg1MCksICIsIGMoMC41LCAxKSwgIikiKSwKICAgICAgICAgICAgICAgICAgIGV4cGFuZCA9IGV4cGFuc2lvbihhZGQgPSAwLjEpKSArCiAgeGxhYihleHByZXNzaW9uKGV4cChpdGFsaWMocCkoYmV0YVswXSkpKSkgKwogIGNvb3JkX2NhcnRlc2lhbih4bGltID0gYygwLDQwMCkpCgoKbV9wcmlvcjUgPC0gYnJtKAogIGNhc2VzIH4geV9udW0gKyBhY2ZfcGVyaW9kICsgeV9udW06YWNmX3BlcmlvZCArICggMSB8IHdhcmQpLAogIGZhbWlseSA9IG5lZ2Jpbm9taWFsKCksCiAgZGF0YSA9IG1kYXRhLAogIHNhbXBsZV9wcmlvciA9ICJvbmx5IiwKICBwcmlvciA9IHByaW9yKG5vcm1hbChsb2coNTApLCAxKSwgY2xhc3MgPSBJbnRlcmNlcHQpICsKICAgICAgICAgIHByaW9yKGdhbW1hKDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICBwcmlvcihub3JtYWwoMCwgMC4wMSksIGNsYXNzID0gYikgKwogICAgICAgICAgcHJpb3IoZXhwb25lbnRpYWwoMSksIGNsYXNzPXNkKQopCgoKYWRkX2VwcmVkX2RyYXdzKG9iamVjdD1tX3ByaW9yNSwKICAgICAgICAgICAgICAgIG5ld2RhdGEgPSBtZGF0YSwKICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSBOQSkgJT4lCiAgZ2dwbG90KGFlcyh4PXllYXIsIHk9LmVwcmVkKSkgKwogIHN0YXRfaGFsZmV5ZSgpICsKICBzY2FsZV95X2xvZzEwKGxhYmVsPWNvbW1hKQoKYWRkX2VwcmVkX2RyYXdzKG9iamVjdD1tX3ByaW9yNSwKICAgICAgICAgICAgICAgIG5ld2RhdGEgPSBtZGF0YSwKICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSBOQSkgJT4lCiAgZ2dwbG90KGFlcyh4PXllYXIsIHk9LmVwcmVkKSkgKwogIHN0YXRfaGFsZmV5ZSgpICsKICBzY2FsZV95X2xvZzEwKGxhYmVsPWNvbW1hKSArCiAgZmFjZXRfd3JhcCh3YXJkfi4pCgpgYGAKCkFuZCBhZGQgaW4gdGhlIHJhbmRvbSBzbG9wZXMKCmBgYHtyfQoKbV9wcmlvcjYgPC0gYnJtKAogIGNhc2VzIH4gMSArIHlfbnVtICsgYWNmX3BlcmlvZCArIHlfbnVtOmFjZl9wZXJpb2QgKyAoMSArIHlfbnVtKmFjZl9wZXJpb2QgfCB3YXJkKSwKICBmYW1pbHkgPSBuZWdiaW5vbWlhbCgpLAogIGRhdGEgPSBtZGF0YSwKICBzYW1wbGVfcHJpb3IgPSAib25seSIsCiAgcHJpb3IgPSBwcmlvcihnYW1tYSgxLCAwLjAxKSwgY2xhc3MgPSBzaGFwZSkgKwogICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDAuMSksIGNsYXNzID0gYikgKwogICAgICAgICAgcHJpb3IoZXhwb25lbnRpYWwoMSksIGNsYXNzPXNkKSArCiAgICAgICAgICBwcmlvcihsa2ooMiksIGNsYXNzPWNvcikKKQoKCgptX3ByaW9yNiA8LSBicm0oCiAgY2FzZXMgfiAwICsgSW50ZXJjZXB0ICsgeV9udW0gKyBhY2ZfcGVyaW9kICsgeV9udW06YWNmX3BlcmlvZCArICggeV9udW0qYWNmX3BlcmlvZCB8IHdhcmQpLAogIGZhbWlseSA9IG5lZ2Jpbm9taWFsKCksCiAgZGF0YSA9IG1kYXRhLAogIHNhbXBsZV9wcmlvciA9ICJvbmx5IiwKICBwcmlvciA9IHByaW9yKG5vcm1hbChsb2coNTApLCAxKSwgY2xhc3MgPSBiLCBjb2VmID0gSW50ZXJjZXB0KSArCiAgICAgICAgICBwcmlvcihnYW1tYSgxLCAwLjAxKSwgY2xhc3MgPSBzaGFwZSkgKwogICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDAuMDEpLCBjbGFzcyA9IGIpICsKICAgICAgICAgIHByaW9yKGV4cG9uZW50aWFsKDEwMCksIGNsYXNzPXNkKSArCiAgICAgICAgICBwcmlvcihsa2ooMiksIGNsYXNzPWNvcikKKQoKCmFkZF9lcHJlZF9kcmF3cyhvYmplY3Q9bV9wcmlvcjYsCiAgICAgICAgICAgICAgICBuZXdkYXRhID0gbWRhdGEsCiAgICAgICAgICAgICAgICByZV9mb3JtdWxhID0gTkEpICU+JQogIGdncGxvdChhZXMoeD15ZWFyLCB5PS5lcHJlZCkpICsKICBzdGF0X2hhbGZleWUoKSArCiAgc2NhbGVfeV9sb2cxMChsYWJlbD1jb21tYSkKCmFkZF9lcHJlZF9kcmF3cyhvYmplY3Q9bV9wcmlvcjYsCiAgICAgICAgICAgICAgICBuZXdkYXRhID0gbWRhdGEsCiAgICAgICAgICAgICAgICByZV9mb3JtdWxhID0gfiggMSArIHlfbnVtICsgYWNmX3BlcmlvZCB8IHdhcmQpKSAlPiUKICBnZ3Bsb3QoYWVzKHg9eWVhciwgeT0uZXByZWQpKSArCiAgc3RhdF9oYWxmZXllKCkgKwogIHNjYWxlX3lfbG9nMTAobGFiZWw9Y29tbWEpICsKICBmYWNldF93cmFwKHdhcmR+LikKCnBsb3RfY291bnRlcmZhY3R1YWwobW9kZWxfZGF0YSA9IG92ZXJhbGxfc2NhZmZvbGQsIG1vZGVsPW1fcHJpb3I2LCBvdXRjb21lID0gaW5jXzEwMGssIAogICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3IgPSBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCByZV9mb3JtdWxhID0gTkEpCgpwbG90X2NvdW50ZXJmYWN0dWFsKG1vZGVsX2RhdGEgPSBtZGF0YSwgbW9kZWw9bV9wcmlvcjYsIG91dGNvbWUgPSBpbmNfMTAwaywgCiAgICAgICAgICAgICAgICAgICAgcG9wdWxhdGlvbl9kZW5vbWluYXRvciA9IHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsIGdyb3VwaW5nX3ZhciA9IHdhcmQsIHdhcmQsCiAgICAgICAgICAgICAgICAgICAgcmVfZm9ybXVsYSA9IH4oIDEgKyB5X251bSArIGFjZl9wZXJpb2QgfCB3YXJkKSkKCmBgYAoKCklzc3VlIGhlcmUgaXMgdGhlIG5vbi1jZW50cmVkIHBhcmFtZXRlcmlzYXRpb24gb2YgdGhlIGludGVyY2VwdCBwcmlvci4uLiBGZWVsIGxpa2UgdGhpcyBpcyBhIG1vcmUgaW50ZXJwcmV0YWJsZSB3YXkgdG8gc2V0IHByaW9ycy4uLiBidXQgd2lsbCByZXZlcnQgdG8gY2VudHJlZCBwYXJhbWV0ZXJpc2F0aW9uIGZvciB0aGUgbWVhbnRpbWUuCgoKYGBge3J9Cm1fY2VudGVyZWRfcHJpb3IgPC0gYnJtKAogIGNhc2VzIH4gMSArIHlfbnVtKmFjZl9wZXJpb2QgKyAoMSArIHlfbnVtKmFjZl9wZXJpb2QgfCB3YXJkKSArIG9mZnNldChsb2cocG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCkpLAogICAgICAgICAgICAgICAgICBkYXRhID0gbWRhdGEsCiAgICAgICAgICAgICAgICAgIGZhbWlseSA9IG5lZ2Jpbm9taWFsKCksCiAgICAgICAgICAgICAgICAgIHNlZWQgPSAxMjM0LAogICAgICAgICAgICAgICAgICBjaGFpbnMgPSA0LCBjb3JlcyA9IDQsCiAgICAgICAgICAgICAgICAgIHByaW9yID0gcHJpb3Iobm9ybWFsKDAsMTAwMCksIGNsYXNzID0gSW50ZXJjZXB0KSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgcHJpb3IoZ2FtbWEoMC4wMSwgMC4wMSksIGNsYXNzID0gc2hhcGUpICsKICAgICAgICAgICAgICAgICAgICAgICAgICBwcmlvcihub3JtYWwoMCwgMSksIGNsYXNzID0gYikgKwogICAgICAgICAgICAgICAgICAgICAgICAgIHByaW9yKGV4cG9uZW50aWFsKDEpLCBjbGFzcz1zZCkgKwogICAgICAgICAgICAgICAgICAgICAgICAgIHByaW9yKGxraigyKSwgY2xhc3M9Y29yKSwKICAgICAgICAgICAgICAgICAgc2FtcGxlX3ByaW9yID0gIm9ubHkiKQoKcGxvdChtX2NlbnRlcmVkX3ByaW9yKQoKcGxvdF9jb3VudGVyZmFjdHVhbChtb2RlbF9kYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCwgbW9kZWw9bV9jZW50ZXJlZF9wcmlvciwgb3V0Y29tZSA9IGluY18xMDBrLCAKICAgICAgICAgICAgICAgICAgICBwb3B1bGF0aW9uX2Rlbm9taW5hdG9yID0gcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgcmVfZm9ybXVsYSA9IE5BKQoKcGxvdF9jb3VudGVyZmFjdHVhbChtb2RlbF9kYXRhID0gbWRhdGEsIG1vZGVsPW1fY2VudGVyZWRfcHJpb3IsIG91dGNvbWUgPSBpbmNfMTAwaywgCiAgICAgICAgICAgICAgICAgICAgcG9wdWxhdGlvbl9kZW5vbWluYXRvciA9IHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsIGdyb3VwaW5nX3ZhciA9IHdhcmQsIHdhcmQsCiAgICAgICAgICAgICAgICAgICAgcmVfZm9ybXVsYSA9IH4oIDEgKyB5X251bSphY2ZfcGVyaW9kIHwgd2FyZCkpCgpgYGAKCgoKCkxvb2sgYXQgdGhlIG1lYW4gYW5kIHZhcmlhbmNlIG9mIGNvdW50cyAoY291bnRzIG9mIHB1bG1vbmFyeSBub3RpZmljYXRpb25zIGFyZSB3aGF0IHdlIGFyZSBwcmVkaWN0aW5nKQoKYGBge3J9CgojTWVhbiBvZiBjb3VudHMgcGVyIHllYXIKbWVhbihtZGF0YSRjYXNlcykKI3ZhcmlhbmNlIG9mIGNvdW50cyBwZXIgeWVhcgp2YXIobWRhdGEkY2FzZXMpCgpgYGAKCgpRdWl0ZSBhIGJpdCBvZiBvdmVyLWRpc3BlcnNpb24gaGVyZSwgc28gbmVnYXRpdmUgYmlub21pYWwgZGlzdHJpYnV0aW9uIG1pZ2h0IGJlIGEgYmV0dGVyIGNob2ljZSBvZiBkaXN0cmlidXRpb25hbCBmYW1pbHkgdGhhbiBQb2lzc29uLgoKRml0IHRoZSBtb2RlbCB3aXRoIHRoZSBkYXRhCgpgYGB7cn0KCm1fcHVsbW9uYXJ5IDwtIGJybSgKICBjYXNlcyB+IDEgKyB5X251bSphY2ZfcGVyaW9kICsgKDEgKyB5X251bSphY2ZfcGVyaW9kIHwgd2FyZCkgKyBvZmZzZXQobG9nKHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXApKSwKICAgICAgICAgICAgICAgICAgZGF0YSA9IG1kYXRhLAogICAgICAgICAgICAgICAgICBmYW1pbHkgPSBuZWdiaW5vbWlhbCgpLAogICAgICAgICAgICAgICAgICBzZWVkID0gMTIzNCwKICAgICAgICAgICAgICAgICAgY2hhaW5zID0gNCwgY29yZXMgPSA0LAogICAgICAgICAgICAgICAgICBwcmlvciA9IHByaW9yKG5vcm1hbCgwLDEwMDApLCBjbGFzcyA9IEludGVyY2VwdCkgKwogICAgICAgICAgICAgICAgICAgICAgICAgIHByaW9yKGdhbW1hKDAuMDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDEpLCBjbGFzcyA9IGIpICsKICAgICAgICAgICAgICAgICAgICAgICAgICBwcmlvcihleHBvbmVudGlhbCgxKSwgY2xhc3M9c2QpICsKICAgICAgICAgICAgICAgICAgICAgICAgICBwcmlvcihsa2ooMiksIGNsYXNzPWNvcikpCiAgCiNjaGVjayBtb2RlbCBkaWFnbm9zdGljcwpzdW1tYXJ5KG1fcHVsbW9uYXJ5KQpwbG90KG1fcHVsbW9uYXJ5KQoKcHBfY2hlY2sobV9wdWxtb25hcnksIHR5cGU9J2VjZGZfb3ZlcmxheScpCnByaW9yX3N1bW1hcnkobV9wdWxtb25hcnkpCgpgYGAKCgojIyMjIDcuMiBTdW1tYXJpc2UgY2hhbmdlIGluIENOUnMKClN1bW1hcmlzZSB0aGUgcG9zdGVyaW9yIGluIGdyYXBoaWNhbCBmb3JtCgpgYGB7cn0KCmYxYiA8LSBwbG90X2NvdW50ZXJmYWN0dWFsKG1vZGVsX2RhdGEgPSBvdmVyYWxsX3NjYWZmb2xkLCBtb2RlbCA9IG1fcHVsbW9uYXJ5LCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgcG9wdWxhdGlvbl9kZW5vbWluYXRvciA9IHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsIG91dGNvbWUgPSBpbmNfMTAwaywgZ3JvdXBpbmdfdmFyPU5VTEwsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSBOQSkKICAKZjFiCmBgYAoKTWFrZSB0aGlzIGludG8gYSBmaWd1cmUgY29tYmluZWQgd2l0aCB0aGUgbWFwIG9mIGVtcGlyaWNhbCBkYXRhCgpgYGB7cn0KCmYxYSA8LSBzdF9hc19zZihsZWZ0X2pvaW4od2FyZF9pbmMsIGdsYXNnb3dfd2FyZHNfMTk1MSkpICU+JQogIGZpbHRlcih0Yl90eXBlPT0iUHVsbW9uYXJ5IikgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fc2YoYWVzKGZpbGw9aW5jXzEwMGspKSArCiAgZmFjZXRfd3JhcCh5ZWFyfi4sIG5jb2wgPSA3KSArCiAgc2NhbGVfZmlsbF92aXJpZGlzX2MobmFtZT0iQ2FzZSBub3RpZmljYXRpb24gcmF0ZSAocGVyIDEwMCwwMDApIiwKICAgICAgICAgICAgICAgICAgICAgICBvcHRpb24gPSAiQSIpICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUocGFuZWwuYm9yZGVyID0gZWxlbWVudF9yZWN0KGNvbG91ciA9ICJncmV5NzgiLCBmaWxsPU5BKSwKICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAidG9wIiwKICAgICAgICBsZWdlbmQua2V5LndpZHRoID0gdW5pdCgyLCAiY20iKSwKICAgICAgICBsZWdlbmQudGl0bGUuYWxpZ24gPSAwLjUsCiAgICAgICAgdGV4dCA9IGVsZW1lbnRfdGV4dChzaXplPTgpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlPTQ1LCBzaXplPTYsIGhqdXN0PTEpLAogICAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemU9NikpICsKICBndWlkZXMoZmlsbD1ndWlkZV9jb2xvcmJhcih0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiKSkKCihmMWEgLyBmMWIpICsgcGxvdF9hbm5vdGF0aW9uKHRhZ19sZXZlbHMgPSAiQSIpCgpnZ3NhdmUoaGVyZSgiZmlndXJlcy9mMS5wbmciKSkKCmBgYAoKU3VtbWFyeSBvZiBjaGFuZ2UgaW4gbm90aWZpY2F0aW9ucyBudW1lcmljYWxseQoKYGBge3J9CgpvdmVyYWxsX2NoYW5nZSA8LSBzdW1tYXJpc2VfY2hhbmdlKG1vZGVsX2RhdGE9b3ZlcmFsbF9zY2FmZm9sZCwgbW9kZWw9bV9wdWxtb25hcnksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3I9cG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgZ3JvdXBpbmdfdmFyPU5VTEwsIHJlX2Zvcm11bGEgPSBOQSkKCiN3YW50IHRvIGtlZXAgdGhlIHN1bW1hcnkgZXN0aW1hdGVzIGhlcmUKdG9rZWVwIDwtIGMoInBlYWtfc3VtbWFyeSIsICJsZXZlbF9zdW1tYXJ5IiwgInNsb3BlX3N1bW1hcnkiKQoKI3N1bW1hcnkgbWVhc3VyZXMgaW4gYSB0YWJsZQpvdmVyYWxsX2NoYW5nZSAlPiUKICBrZWVwKChuYW1lcyguKSAlaW4lIHRva2VlcCkpICU+JQogIGJpbmRfcm93cygpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhlc3RpbWF0ZToudXBwZXIpLCBudW1iZXIsIGFjY3VyYWN5PTAuMDEpKSAlPiUKICBzZWxlY3QobWVhc3VyZSwgZXZlcnl0aGluZygpKSAlPiUKICBkYXRhdGFibGUoKQoKICAKYGBgCgoKIyMjIyA3LjMgQ29tcGFyZWQgdG8gY291bnRlcmZhY3R1YWwKCk51bWJlcnMgb2YgcHVsbW9uYXJ5IFRCIGNhc2VzIGF2ZXJ0ZWQgY29tcGFyZWQgdG8gY291bnRlcmZhY3R1YWwgcGVyIHllYXIuCgpgYGB7cn0KCm92ZXJhbGxfcHVsbW9uYXJ5X2NvdW50ZXJmIDwtIGNhbGN1bGF0ZV9jb3VudGVyZmFjdHVhbChtb2RlbF9kYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCwgbW9kZWw9bV9wdWxtb25hcnksIHBvcHVsYXRpb25fZGVub21pbmF0b3IgPSBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwKQoKb3ZlcmFsbF9wdWxtb25hcnlfY291bnRlcmYkY291bnRlcl9wb3N0ICU+JQogIG11dGF0ZShhY3Jvc3MoYyhjYXNlc19hdmVydGVkOmNhc2VzX2F2ZXJ0ZWQudXBwZXIsIGRpZmZfaW5jMTAwazpkaWZmX2luYzEwMGsudXBwZXIpLCBudW1iZXJfZm9ybWF0KGFjY3VyYWN5ID0gMC4xLCBiaWcubWFyayA9ICIsIikpKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMocnJfaW5jMTAwazpycl9pbmMxMDBrLnVwcGVyKSwgbnVtYmVyX2Zvcm1hdChhY2N1cmFjeSA9IDAuMDEpKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKHBjdF9jaGFuZ2U6cGN0X2NoYW5nZS51cHBlciksIHBlcmNlbnQsIGFjY3VyYWN5PTAuMSkpICU+JQogIGRhdGF0YWJsZSgpCgoKYGBgCgpUb3RhbCBwdWxtb25hcnkgVEIgY2FzZXMgYXZlcnRlZCBiZXR3ZWVuIDE5NTggYW5kIDE5NjMKCmBgYHtyfQoKb3ZlcmFsbF9wdWxtb25hcnlfY291bnRlcmYkY291bnRlcl9wb3N0X292ZXJhbGwgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKGNhc2VzX2F2ZXJ0ZWQ6Y2FzZXNfYXZlcnRlZC51cHBlciksIG51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEsIGJpZy5tYXJrID0gIiwiKSkpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhwY3RfY2hhbmdlOnBjdF9jaGFuZ2UudXBwZXIpLCBwZXJjZW50LCBhY2N1cmFjeT0wLjEpKSAlPiUKICBkYXRhdGFibGUoKQoKCmBgYAoKIyMjIyA3LjQgQ29ycmVsYXRpb24gYmV0d2VlbiBSUi5wZWFrLCBSUi5sZXZlbCwgYW5kIFJSLnNsb3BlCgpXaGF0IGFyZSB0aGUgY29ycmVsYXRpb25zIGJldHdlZW4gcGVhaywgbGV2ZWwsIGFuZCBzbG9wZT8KCmBgYHtyfQoKI1JSLnBlYWsgaGlzdG9ncmFtCmEgPC0gb3ZlcmFsbF9jaGFuZ2UkcGVha19kcmF3cyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9oaXN0b2dyYW0oYWVzKHg9ZXN0aW1hdGUpLCBmaWxsPSJkYXJrYmx1ZSIsIGNvbG91cj0iZGFya2JsdWUiLCBhbHBoYT0wLjMpKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnQoaGlnaD0ibGlnaHRibHVlMSIsbG93PSJkYXJrYmx1ZSIpICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLAogICAgICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSkpICsKICBsYWJzKHg9IlJSLnBlYWsiLAogICAgICAgeT0iIikKCiNSUi4gbGV2ZWwgaGlzdG9ncmFtCmIgPC0gb3ZlcmFsbF9jaGFuZ2UkbGV2ZWxfZHJhd3MgICU+JQogIGdncGxvdCgpICsKICBnZW9tX2hpc3RvZ3JhbShhZXMoeD1lc3RpbWF0ZSksIGZpbGw9ImRhcmtibHVlIiwgY29sb3VyPSJkYXJrYmx1ZSIsIGFscGhhPTAuMykrCiAgc2NhbGVfZmlsbF9ncmFkaWVudChoaWdoPSJsaWdodGJsdWUxIixsb3c9ImRhcmtibHVlIikgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsCiAgICAgICAgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9yZWN0KGNvbG91ciA9ICJncmV5NzgiLCBmaWxsPU5BKSkgKwogIGxhYnMoeD0iUlIubGV2ZWwiLAogICAgICAgeT0iIikKCiNSUi5zbG9wZSBoaXN0b2dyYW0KYyA8LSBvdmVyYWxsX2NoYW5nZSRzbG9wZV9kcmF3cyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9oaXN0b2dyYW0oYWVzKHg9ZXN0aW1hdGUpLCBmaWxsPSJkYXJrYmx1ZSIsIGNvbG91cj0iZGFya2JsdWUiLCBhbHBoYT0wLjMpKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnQoaGlnaD0ibGlnaHRibHVlMSIsbG93PSJkYXJrYmx1ZSIpICsgIAogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSBjKDAsIDYpKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwKICAgICAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKSArCiAgbGFicyh4PSJSUi5zbG9wZSIsCiAgICAgICB5PSIiKQoKCiNDb3JyZWxhdGlvbiBiZXR3ZWVuIFJSLnBlYWsgYW5kIFJSLmxldmVsCmNvcl9ycl9wZWFrX3JyX2xldmVsIDwtIHJvdW5kKGNvcihwbHVjayhvdmVyYWxsX2NoYW5nZSRwZWFrX2RyYXdzJGVzdGltYXRlKSwgcGx1Y2sob3ZlcmFsbF9jaGFuZ2UkbGV2ZWxfZHJhd3MkZXN0aW1hdGUpKSwgZGlnaXRzID0gMikKCiNDb3JyZWxhdGlvbiBiZXR3ZWVuIFJSLnBlYWsgYW5kIFJSLnNsb3BlCmNvcl9ycl9wZWFrX3JyX3Nsb3BlIDwtIHJvdW5kKGNvcihwbHVjayhvdmVyYWxsX2NoYW5nZSRwZWFrX2RyYXdzJGVzdGltYXRlKSwgcGx1Y2sob3ZlcmFsbF9jaGFuZ2Ukc2xvcGVfZHJhd3MkZXN0aW1hdGUpKSwgZGlnaXRzID0gMikKCiNDb3JyZWxhdGlvbiBiZXR3ZWVuIFJSLmxldmVsIGFuZCBSUi5zbG9wZQpjb3JfcnJfbGV2ZWxfcnJfc2xvcGUgPC0gcm91bmQoY29yKHBsdWNrKG92ZXJhbGxfY2hhbmdlJGxldmVsX2RyYXdzJGVzdGltYXRlKSwgcGx1Y2sob3ZlcmFsbF9jaGFuZ2Ukc2xvcGVfZHJhd3MkZXN0aW1hdGUpKSwgZGlnaXRzID0gMikKCgojcGxvdCBvZiBjb3JyZWxhdGlvbiBiZXR3ZWVuIFJSLnBlYWsgYW5kIFJSLmxldmVsCmQgPC0gYmluZF9jb2xzKFJSLnBlYWs9cGx1Y2sob3ZlcmFsbF9jaGFuZ2UkcGVha19kcmF3cyRlc3RpbWF0ZSksIAogICAgICAgICAgUlIubGV2ZWwgPXBsdWNrKG92ZXJhbGxfY2hhbmdlJGxldmVsX2RyYXdzJGVzdGltYXRlKSkgJT4lCiAgZ2dwbG90KGFlcyh5PVJSLnBlYWssIHggPSBSUi5sZXZlbCkpICsKICBnZW9tX2hleCgpICsKICBnZW9tX3Ntb290aChzZT1GQUxTRSwgY29sb3VyPSJmaXJlYnJpY2siLCBtZXRob2QgPSAibG0iKSArCiAgZ2VvbV90ZXh0KGFlcyh5PTIuMiwgeD0wLjU4LCBsYWJlbD1jb3JfcnJfcGVha19ycl9sZXZlbCksIGNvbG91cj0iZmlyZWJyaWNrIikgICsKICBzY2FsZV9maWxsX2dyYWRpZW50KGhpZ2g9ImxpZ2h0Ymx1ZTEiLGxvdz0iZGFya2JsdWUiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwKICAgICAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKQoKI3Bsb3Qgb2YgY29ycmVsYXRpb24gYmV0d2VlbiBSUi5wZWFrIGFuZCBSUi5zbG9wZQplIDwtIGJpbmRfY29scyhSUi5wZWFrPXBsdWNrKG92ZXJhbGxfY2hhbmdlJHBlYWtfZHJhd3MkZXN0aW1hdGUpLCAKICAgICAgICAgIFJSLnNsb3BlID1wbHVjayhvdmVyYWxsX2NoYW5nZSRzbG9wZV9kcmF3cyRlc3RpbWF0ZSkpICU+JQogIGdncGxvdChhZXMoeT1SUi5wZWFrLCB4ID0gUlIuc2xvcGUpKSArCiAgZ2VvbV9oZXgoKSArCiAgZ2VvbV9zbW9vdGgoc2U9RkFMU0UsIGNvbG91cj0iZmlyZWJyaWNrIikgKwogIGdlb21fdGV4dChhZXMoeT0yLjEsIHg9MC41LCBsYWJlbD1jb3JfcnJfcGVha19ycl9zbG9wZSksIGNvbG91cj0iZmlyZWJyaWNrIikgICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0gYygwLCA2KSkgKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnQoaGlnaD0ibGlnaHRibHVlMSIsbG93PSJkYXJrYmx1ZSIpICsKICB0aGVtZV9nZ2Rpc3QoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLAogICAgICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSkpCgojcGxvdCBvZiBjb3JyZWxhdGlvbiBiZXR3ZWVuIFJSLmxldmVsIGFuZCBSUi5zbG9wZQpmIDwtIGJpbmRfY29scyhSUi5sZXZlbD1wbHVjayhvdmVyYWxsX2NoYW5nZSRsZXZlbF9kcmF3cyRlc3RpbWF0ZSksIAogICAgICAgICAgUlIuc2xvcGUgPXBsdWNrKG92ZXJhbGxfY2hhbmdlJHNsb3BlX2RyYXdzJGVzdGltYXRlKSkgJT4lCiAgZ2dwbG90KGFlcyh5PVJSLmxldmVsLCB4ID0gUlIuc2xvcGUpKSArCiAgZ2VvbV9oZXgoKSArCiAgZ2VvbV9zbW9vdGgoc2U9RkFMU0UsIGNvbG91cj0iZmlyZWJyaWNrIikgKwogIGdlb21fdGV4dChhZXMoeT0wLjc1LCB4PTAuNSwgbGFiZWw9Y29yX3JyX2xldmVsX3JyX3Nsb3BlKSwgY29sb3VyPSJmaXJlYnJpY2siKSAgKyAgCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IGMoMCwgNikpICsKICBzY2FsZV9maWxsX2dyYWRpZW50KGhpZ2g9ImxpZ2h0Ymx1ZTEiLGxvdz0iZGFya2JsdWUiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwKICAgICAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKQoKCihwbG90X3NwYWNlcigpICsgcGxvdF9zcGFjZXIoKSArIGMpIC8KICAocGxvdF9zcGFjZXIoKSArIGIgKyBmKSAvCiAgKGEgKyBkICsgZSkKCmdnc2F2ZShoZXJlKCJmaWd1cmVzL3B1bG1vbmFyeV9jb3JzLnBkZiIpLCB3aWR0aD04LCBoZWlnaHQ9OCkKCgoKYGBgCgoKIyMjIyA3LjUgV2FyZCBsZXZlbCBwdWxtb25hcnkgVEIgZXN0aW1hdGVzCgpQbG90IHRoZSBjb3VudGVyZmFjdHVhbCBhdCB3YXJkIGxldmVsCgpgYGB7cn0KCnBsb3RfY291bnRlcmZhY3R1YWwobW9kZWxfZGF0YSA9IG1kYXRhLCBtb2RlbD1tX3B1bG1vbmFyeSwgb3V0Y29tZSA9IGluY18xMDBrLCBwb3B1bGF0aW9uX2Rlbm9taW5hdG9yID0gcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgCiAgICAgICAgICAgICAgICAgICAgZ3JvdXBpbmdfdmFyID0gd2FyZCwgd2FyZCwgcmVfZm9ybXVsYT0gfigxICsgeV9udW0qYWNmX3BlcmlvZCB8IHdhcmQpKQogIApnZ3NhdmUoaGVyZSgiZmlndXJlcy9zNC5wbmciKSwgd2lkdGg9MTIsIGhlaWdodD0xMikKCmBgYAoKU3VtbWFyeSBvZiBjaGFuZ2UgaW4gbm90aWZpY2F0aW9ucyBhdCB3YXJkIGxldmVsCgpgYGB7cn0KCndhcmRfY2hhbmdlIDwtIHN1bW1hcmlzZV9jaGFuZ2UobW9kZWxfZGF0YT1tZGF0YSwgbW9kZWw9bV9wdWxtb25hcnksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3I9cG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgZ3JvdXBpbmdfdmFyPXdhcmQsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlX2Zvcm11bGEgPSB+KDEgKyB5X251bSphY2ZfcGVyaW9kIHwgd2FyZCkpCgojd2FudCB0byBrZWVwIHRoZSBzdW1tYXJ5IGVzdGltYXRlcyBoZXJlCnRva2VlcCA8LSBjKCJwZWFrX3N1bW1hcnkiLCAibGV2ZWxfc3VtbWFyeSIsICJzbG9wZV9zdW1tYXJ5IikKCiNzdW1tYXJ5IG1lYXN1cmVzIGluIGEgdGFibGUKd2FyZF9jaGFuZ2UgJT4lCiAga2VlcCgobmFtZXMoLikgJWluJSB0b2tlZXApKSAlPiUKICBiaW5kX3Jvd3MoKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMoZXN0aW1hdGU6LnVwcGVyKSwgbnVtYmVyLCBhY2N1cmFjeT0wLjAxKSkgJT4lCiAgc2VsZWN0KG1lYXN1cmUsIGV2ZXJ5dGhpbmcoKSkgJT4lCiAgZGF0YXRhYmxlKCkKCgpteV9wYXRjaHdvcmsgPSBmdW5jdGlvbihkYXRhLCBwbG90X2NvbD0icGxvdCIpIHsKICAKICByZWR1Y2UoZGF0YVtbcGxvdF9jb2xdXSwgYCUrJWApCiAgCn0KCiNwZWFrIGluIGEgY2hhcnQKd2FyZF9jaGFuZ2UgJT4lCiAga2VlcCgobmFtZXMoLikgJWluJSB0b2tlZXApKSAlPiUKICBiaW5kX3Jvd3MoKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMoZXN0aW1hdGU6LnVwcGVyKSwgbnVtYmVyLCBhY2N1cmFjeT0wLjAxKSkgJT4lCiAgc2VsZWN0KG1lYXN1cmUsIGV2ZXJ5dGhpbmcoKSkgJT4lCiAgbXV0YXRlKGVzdGltYXRlID0gYXMuZG91YmxlKGVzdGltYXRlKSkgJT4lCiAgZnVsbF9qb2luKGdsYXNnb3dfd2FyZHNfMTk1MSkgJT4lCiAgc3RfYXNfc2YoKSAlPiUKICBncm91cF9ieShtZWFzdXJlKSAlPiUgCiAgbmVzdCgpICU+JQogIG11dGF0ZShsYWJlbCA9IGNhc2Vfd2hlbihtZWFzdXJlPT0iUlIucGVhayIgfiAiQSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIG1lYXN1cmU9PSJSUi5sZXZlbCIgfiJCIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgbWVhc3VyZT09IlJSLnNsb3BlIiB+IkMiKSkgJT4lCiAgbXV0YXRlKHBsb3QgPSBwbWFwKGxpc3QoZGF0YSwgbGFiZWwsIG1lYXN1cmUpLAogICAgICAgICAgICAgICAgICAgICB+Z2dwbG90KCkgKwogICAgICAgICAgICAgICAgICAgICAgIGdlb21fc2YoZGF0YT0uLjEsIGFlcyhmaWxsPWVzdGltYXRlKSkgKwogICAgICAgICAgICAgICAgICAgICAgIGdndGl0bGUocGFzdGUwKHsuLjJ9LCAiKSAiLCB7Li4zfSkpICsKICAgICAgICAgICAgICAgICAgICAgICBzY2FsZV9maWxsX2dyYWRpZW50KGhpZ2g9ImxpZ2h0Ymx1ZTEiLGxvdz0iZGFya2JsdWUiLCBuYW1lPSIiKSArCiAgICAgICAgICAgICAgICAgICAgICAgdGhlbWVfZ2dkaXN0KCkgKwogICAgICAgICAgICAgICAgICAgICAgIHRoZW1lKHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSksCiAgICAgICAgICAgICAgICAgICAgICAgYXhpcy50ZXh0Lng9ZWxlbWVudF90ZXh0KGFuZ2xlPTQ1LCBoanVzdD0xKSkpKSAlPiUgCiAgcGx1Y2soInBsb3QiKSAlPiUgcmVkdWNlKGAlKyVgKQoKZ2dzYXZlKGhlcmUoImZpZ3VyZXMvczQucG5nIiksIHdpZHRoID0gMTApCgpgYGAKCkNhbGN1bGF0ZSB0aGUgY291bnRlcmZhY3R1YWwgcGVyIHdhcmQKCmBgYHtyfQoKd2FyZF9wdWxtb25hcnlfY291bnRlcmYgPC0gY2FsY3VsYXRlX2NvdW50ZXJmYWN0dWFsKG1vZGVsX2RhdGEgPSBtZGF0YSwgbW9kZWw9bV9wdWxtb25hcnksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcG9wdWxhdGlvbl9kZW5vbWluYXRvciA9IHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXAsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBncm91cGluZ192YXIgPSB3YXJkLCByZV9mb3JtdWxhPX4oMSArIHlfbnVtKmFjZl9wZXJpb2QgfCB3YXJkKSkKCndhcmRfcHVsbW9uYXJ5X2NvdW50ZXJmJGNvdW50ZXJfcG9zdCAlPiUKICBtdXRhdGUoYWNyb3NzKGMoY2FzZXNfYXZlcnRlZDpjYXNlc19hdmVydGVkLnVwcGVyLCBkaWZmX2luYzEwMGs6ZGlmZl9pbmMxMDBrLnVwcGVyKSwgbnVtYmVyX2Zvcm1hdChhY2N1cmFjeSA9IDAuMSwgYmlnLm1hcmsgPSAiLCIpKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKHJyX2luYzEwMGs6cnJfaW5jMTAway51cHBlciksIG51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjAxKSkpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhwY3RfY2hhbmdlOnBjdF9jaGFuZ2UudXBwZXIpLCBwZXJjZW50LCBhY2N1cmFjeT0wLjEpKSAlPiUKICBkYXRhdGFibGUoKQoKCmBgYAoKT3ZlcmFsbCBjb3VudGVyZmFjdHVhbCBwZXIgd2FyZAoKYGBge3J9Cgp3YXJkX3B1bG1vbmFyeV9jb3VudGVyZiRjb3VudGVyX3Bvc3Rfb3ZlcmFsbCAlPiUKICBtdXRhdGUoYWNyb3NzKGMoY2FzZXNfYXZlcnRlZDpjYXNlc19hdmVydGVkLnVwcGVyKSwgbnVtYmVyX2Zvcm1hdChhY2N1cmFjeSA9IDAuMSwgYmlnLm1hcmsgPSAiLCIpKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKHBjdF9jaGFuZ2U6cGN0X2NoYW5nZS51cHBlciksIHBlcmNlbnQsIGFjY3VyYWN5PTAuMSkpICU+JQogIGRhdGF0YWJsZSgpCgpgYGAKCgoKIyMjIDguIEV4dHJhLXB1bG1vbmFyeSBUQiBub3RpZmljYXRpb25zCgpOb3cgd2Ugd2lsbCBtb2RlbCB0aGUgZXh0cmEtcHVsbW9uYXJ5IFRCIG5vdGlmaWNhdGlvbiByYXRlLiBTdHJ1Z2dsaW5nIGEgYml0IHdpdGggbmVnYXRpdmUgYmlub21pYWwgbW9kZWwsIHNvIHJldmVydCB0byBQb2lzc29uLgoKIyMjIyA4LjEgRml0IHRoZSBtb2RlbAoKYGBge3J9CgptX2V4dHJhcHVsbW9uYXJ5IDwtIGJybSgKICBjYXNlcyB+IDEgKyB5X251bSphY2ZfcGVyaW9kICsgKDEgKyB5X251bSphY2ZfcGVyaW9kIHwgd2FyZCkgKyBvZmZzZXQobG9nKHBvcHVsYXRpb25fd2l0aG91dF9pbnN0X3NoaXApKSwKICAgICAgICAgICAgICAgICAgZGF0YSA9IG1kYXRhX2V4dHJhcHVsbW9uYXJ5LAogICAgICAgICAgICAgICAgICBmYW1pbHkgPSBuZWdiaW5vbWlhbCgpLAogICAgICAgICAgICAgICAgICBzZWVkID0gMTIzNCwKICAgICAgICAgICAgICAgICAgY2hhaW5zID0gNCwgY29yZXMgPSA0LAogICAgICAgICAgICAgICAgICBwcmlvciA9IHByaW9yKG5vcm1hbCgwLDEwMDApLCBjbGFzcyA9IEludGVyY2VwdCkgKwogICAgICAgICAgICAgICAgICAgICAgICAgIHByaW9yKGdhbW1hKDAuMDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDEpLCBjbGFzcyA9IGIpICsKICAgICAgICAgICAgICAgICAgICAgICAgICBwcmlvcihleHBvbmVudGlhbCgxKSwgY2xhc3M9c2QpICsKICAgICAgICAgICAgICAgICAgICAgICAgICBwcmlvcihsa2ooMiksIGNsYXNzPWNvcikpCgpzdW1tYXJ5KG1fZXh0cmFwdWxtb25hcnkpCnBsb3QobV9leHRyYXB1bG1vbmFyeSkKcHBfY2hlY2sobV9leHRyYXB1bG1vbmFyeSwgdHlwZT0nZWNkZl9vdmVybGF5JykKCmBgYAoKIyMjIyA4LjIgU3VtbWFyeSBvZiBjaGFuZ2UKClN1bW1hcmlzZSBpbiBwbG90CgpgYGB7cn0KcGxvdF9jb3VudGVyZmFjdHVhbChtb2RlbF9kYXRhID0gb3ZlcmFsbF9zY2FmZm9sZCAlPiUgZmlsdGVyKHllYXI8PTE5NjEpLCBtb2RlbD1tX2V4dHJhcHVsbW9uYXJ5LCAKICAgICAgICAgICAgICAgICAgICBwb3B1bGF0aW9uX2Rlbm9taW5hdG9yID0gcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgb3V0Y29tZT1pbmNfMTAwa19leHRyYXB1bG1vbmFyeSwgcmVfZm9ybXVsYSA9IE5BKQogIApnZ3NhdmUoaGVyZSgiZmlndXJlcy9zNi5wbmciKSwgd2lkdGg9MTApCgpgYGAKClN1bW1hcmlzZSBudW1lcmljYWxseS4KCmBgYHtyfQoKb3ZlcmFsbF9jaGFuZ2VfZXh0cmFwdWxtb25hcnkgPC0gc3VtbWFyaXNlX2NoYW5nZShtb2RlbF9kYXRhPW92ZXJhbGxfc2NhZmZvbGQsIG1vZGVsPW1fZXh0cmFwdWxtb25hcnksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3I9cG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCwgZ3JvdXBpbmdfdmFyPU5VTEwsIHJlX2Zvcm11bGEgPSBOQSkKCiN3YW50IHRvIGtlZXAgdGhlIHN1bW1hcnkgZXN0aW1hdGVzIGhlcmUKdG9rZWVwIDwtIGMoInBlYWtfc3VtbWFyeSIsICJsZXZlbF9zdW1tYXJ5IiwgInNsb3BlX3N1bW1hcnkiKQoKI3N1bW1hcnkgbWVhc3VyZXMgaW4gYSB0YWJsZQpvdmVyYWxsX2NoYW5nZV9leHRyYXB1bG1vbmFyeSAlPiUKICBrZWVwKG5hbWVzKC4pICVpbiUgdG9rZWVwKSAlPiUKICBiaW5kX3Jvd3MoKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMoZXN0aW1hdGU6LnVwcGVyKSwgbnVtYmVyLCBhY2N1cmFjeT0wLjAxKSkgJT4lCiAgc2VsZWN0KG1lYXN1cmUsIGV2ZXJ5dGhpbmcoKSkgJT4lCiAgZGF0YXRhYmxlKCkKCmBgYAoKIyMjIyA4LjMgQ29tcGFyZWQgdG8gY291bnRlcmZhY3R1YWwKCk51bWJlcnMgb2YgZXh0cmEtcHVsbW9uYXJ5IFRCIGNhc2VzIGF2ZXJ0ZWQgb3ZlcmFsbC4KCmBgYHtyfQoKb3ZlcmFsbF9lcF9jb3VudGVyZiA8LSBjYWxjdWxhdGVfY291bnRlcmZhY3R1YWwobW9kZWxfZGF0YSA9IG1kYXRhX2V4dHJhcHVsbW9uYXJ5LCBtb2RlbD1tX2V4dHJhcHVsbW9uYXJ5LCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwb3B1bGF0aW9uX2Rlbm9taW5hdG9yID0gcG9wdWxhdGlvbl93aXRob3V0X2luc3Rfc2hpcCkKCm92ZXJhbGxfZXBfY291bnRlcmYkY291bnRlcl9wb3N0ICU+JQogIG11dGF0ZShhY3Jvc3MoYyhjYXNlc19hdmVydGVkOmNhc2VzX2F2ZXJ0ZWQudXBwZXIsIGRpZmZfaW5jMTAwazpkaWZmX2luYzEwMGsudXBwZXIpLCBudW1iZXJfZm9ybWF0KGFjY3VyYWN5ID0gMC4xLCBiaWcubWFyayA9ICIsIikpKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMocnJfaW5jMTAwazpycl9pbmMxMDBrLnVwcGVyKSwgbnVtYmVyX2Zvcm1hdChhY2N1cmFjeSA9IDAuMDEpKSkgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKHBjdF9jaGFuZ2U6cGN0X2NoYW5nZS51cHBlciksIHBlcmNlbnQsIGFjY3VyYWN5PTAuMSkpICU+JQogIGRhdGF0YWJsZSgpCgpgYGAKClRvdGFsIGV4dHJhcHVsbW9uYXJ5IFRCIGNhc2VzIGF2ZXJ0ZWQgYmV0d2VlbiAxOTU4IGFuZCAxOTYzCgpgYGB7cn0KCm92ZXJhbGxfZXBfY291bnRlcmYkY291bnRlcl9wb3N0X292ZXJhbGwgJT4lCiAgbXV0YXRlKGFjcm9zcyhjKGNhc2VzX2F2ZXJ0ZWQ6Y2FzZXNfYXZlcnRlZC51cHBlciksIG51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEsIGJpZy5tYXJrID0gIiwiKSkpICU+JQogIG11dGF0ZShhY3Jvc3MoYyhwY3RfY2hhbmdlOnBjdF9jaGFuZ2UudXBwZXIpLCBwZXJjZW50LCBhY2N1cmFjeT0wLjEpKSAlPiUKICBkYXRhdGFibGUoKQoKCmBgYAoKIyMjIyA4LjQgV2FyZC1sZXZlbCBleHRyYS1wdWxtb25hcnkgc3VtbWFyaWVzCgpXYXJkLWxldmVsIGV4dHJhLXB1bG1vbmFyeSBlc3RpbWF0ZXMgaW4gZ3JhcGhpY2FsIGZvcm0uCgpgYGB7cn0KCnBsb3RfY291bnRlcmZhY3R1YWwobW9kZWxfZGF0YSA9IG1kYXRhX2V4dHJhcHVsbW9uYXJ5LCBtb2RlbD1tX2V4dHJhcHVsbW9uYXJ5LCBvdXRjb21lID0gaW5jXzEwMGssIAogICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3IgPSBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCBncm91cGluZ192YXIgPSB3YXJkLHJlX2Zvcm11bGEgPX4oeV9udW0qYWNmX3BlcmlvZCB8IHdhcmQpLCAKICAgICAgICAgICAgICAgICAgICB3YXJkKQogIApnZ3NhdmUoaGVyZSgiZmlndXJlcy9zNC5wbmciKSwgd2lkdGg9MTAsIGhlaWdodD0xMikKCmBgYAoKTnVtZXJpY2FsIHN1bW1hcnkuCgpgYGB7cn0KCndhcmRfY2hhbmdlX2V4dHJhcHVsbW9uYXJ5IDwtIHN1bW1hcmlzZV9jaGFuZ2UobW9kZWxfZGF0YSA9IG1kYXRhX2V4dHJhcHVsbW9uYXJ5LCBtb2RlbCA9IG1fZXh0cmFwdWxtb25hcnksIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHBvcHVsYXRpb25fZGVub21pbmF0b3IgPSBwb3B1bGF0aW9uX3dpdGhvdXRfaW5zdF9zaGlwLCBncm91cGluZ192YXI9d2FyZCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICByZV9mb3JtdWxhID0gfih5X251bSphY2ZfcGVyaW9kIHwgd2FyZCkpIAoKI3dhbnQgdG8ga2VlcCB0aGUgc3VtbWFyeSBlc3RpbWF0ZXMgaGVyZQp0b2tlZXAgPC0gYygicGVha19zdW1tYXJ5IiwgImxldmVsX3N1bW1hcnkiLCAic2xvcGVfc3VtbWFyeSIpCgojc3VtbWFyeSBtZWFzdXJlcyBpbiBhIHRhYmxlCndhcmRfY2hhbmdlX2V4dHJhcHVsbW9uYXJ5ICAlPiUKICBrZWVwKG5hbWVzKC4pICVpbiUgdG9rZWVwKSAlPiUKICBiaW5kX3Jvd3MoKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMoZXN0aW1hdGU6LnVwcGVyKSwgbnVtYmVyLCBhY2N1cmFjeT0wLjAxKSkgJT4lCiAgc2VsZWN0KG1lYXN1cmUsIGV2ZXJ5dGhpbmcoKSkgJT4lCiAgZGF0YXRhYmxlKCkKCgoKYGBgCgoKIyMjIDkuIEFnZS1zZXggbW9kZWwKCiMjIyMgOS4xIEZJdCB0aGUgbW9kZWwKCkZpdCB0aGUgbW9kZWwKCihOb3QgcmV3cml0dGVuIHRoZSBmdW5jdGlvbnMgZm9yIHRoaXMgeWV0KQoKYGBge3J9CgptZGF0YV9hZ2Vfc2V4IDwtIGNhc2VzX2J5X2FnZV9zZXggJT4lCiAgZmlsdGVyKHRiX3R5cGU9PSJQdWxtb25hcnkiKSAlPiUKICBtdXRhdGUoYWNmX3BlcmlvZCA9IGNhc2Vfd2hlbih5ZWFyICVpbiUgYygxOTUwOjE5NTYpIH4gImEuIHByZS1hY2YiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHllYXIgJWluJSBjKDE5NTcpIH4gImIuIGFjZiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWVhciAlaW4lIGMoMTk1ODoxOTYzKSB+ICJjLiBwb3N0LWFjZiIpKSAlPiUKICBtdXRhdGUoeWVhcjIgPSB5ZWFyKzAuNSkgJT4lCiAgZ3JvdXBfYnkoYWdlLCBzZXgpICU+JQogIG11dGF0ZSh5X251bSA9IHJvd19udW1iZXIoKSkgJT4lCiAgdW5ncm91cCgpCgptX2FnZV9zZXggPC0gYnJtKAogIGNhc2VzIH4geV9udW0gKyAoYWNmX3BlcmlvZCkqKGFnZSpzZXgpICsgKGFjZl9wZXJpb2Q6eV9udW0pKihhZ2Uqc2V4KSwKICAgICAgICAgICAgICAgICAgZGF0YSA9IG1kYXRhX2FnZV9zZXgsCiAgICAgICAgICAgICAgICAgIGZhbWlseSA9IG5lZ2Jpbm9taWFsKCksCiAgICAgICAgICAgICAgICAgIHNlZWQgPSAxMjM0LAogICAgICAgICAgICAgICAgICBjaGFpbnMgPSA0LCBjb3JlcyA9IDQsIAogICAgICAgICAgICAgICAgICBwcmlvciA9IHByaW9yKG5vcm1hbCgwLDEwMDApLCBjbGFzcyA9IEludGVyY2VwdCkgKwogICAgICAgICAgICAgICAgICAgICAgICAgIHByaW9yKGdhbW1hKDAuMDEsIDAuMDEpLCBjbGFzcyA9IHNoYXBlKSArCiAgICAgICAgICAgICAgICAgICAgICAgICAgcHJpb3Iobm9ybWFsKDAsIDEpLCBjbGFzcyA9IGIpKQoKc3VtbWFyeShtX2FnZV9zZXgpCnBsb3QobV9hZ2Vfc2V4KQpwcF9jaGVjayhtX2FnZV9zZXgsIHR5cGU9J2VjZGZfb3ZlcmxheScpCgoKYGBgCgpTdW1tYXJpc2UgcG9zdGVyaW9yCgpgYGB7cn0KCiNwb3N0ZXJpb3IgZHJhd3MsIGFuZCBzdW1tYXJpc2UKYWdlX3NleF9zdW1tYXJ5IDwtIG1kYXRhX2FnZV9zZXggJT4lCiAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWNmX3BlcmlvZCwgYWdlLCBzZXgpICU+JQogIGFkZF9lcHJlZF9kcmF3cyhtX2FnZV9zZXgpICU+JQogIGdyb3VwX2J5KHllYXIyLCBhY2ZfcGVyaW9kLCBhZ2UsIHNleCkgJT4lCiAgbWVhbl9xaSgpICU+JQogIG11dGF0ZShhY2ZfcGVyaW9kID0gY2FzZV93aGVuKGFjZl9wZXJpb2Q9PSJhLiBwcmUtYWNmIiB+ICJCZWZvcmUgSW50ZXJ2ZW50aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhY2ZfcGVyaW9kPT0iYy4gcG9zdC1hY2YiIH4gIlBvc3QgSW50ZXJ2ZW50aW9uIikpCgojY3JlYXRlIHRoZSBjb3VudGVyZmFjdHVhbCAobm8gaW50ZXJ2ZW50aW9uKSwgYW5kIHN1bW1hcmlzZQphZ2Vfc2V4X2NvdW50ZXJmYWN0IDwtIAogIHRpYmJsZSh5ZWFyID0gbWRhdGFfYWdlX3NleCR5ZWFyLAogICAgICAgICB5ZWFyMiA9IG1kYXRhX2FnZV9zZXgkeWVhcjIsCiAgICAgICAgIHlfbnVtID0gbWRhdGFfYWdlX3NleCR5X251bSwKICAgICAgICAgYWdlID0gbWRhdGFfYWdlX3NleCRhZ2UsCiAgICAgICAgIHNleCA9IG1kYXRhX2FnZV9zZXgkc2V4LAogICAgICAgICBhY2ZfcGVyaW9kID0gZmFjdG9yKCJhLiBwcmUtYWNmIikpICU+JQogIGFkZF9lcHJlZF9kcmF3cyhtX2FnZV9zZXgpICU+JQogIGdyb3VwX2J5KHllYXIyLCBhY2ZfcGVyaW9kLCBhZ2UsIHNleCkgJT4lCiAgbWVhbl9xaSgpICU+JQogIG11dGF0ZShhY2ZfcGVyaW9kID0gY2FzZV93aGVuKGFjZl9wZXJpb2Q9PSJhLiBwcmUtYWNmIiB+ICJCZWZvcmUgSW50ZXJ2ZW50aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhY2ZfcGVyaW9kPT0iYy4gcG9zdC1hY2YiIH4gIlBvc3QgSW50ZXJ2ZW50aW9uIikpICU+JQogIHVuZ3JvdXAoKSAlPiUKICBtdXRhdGUoYWdlID0gY2FzZV93aGVuKGFnZT09IjAwXzA1IiB+ICIwIHRvIDV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjA2XzE1IiB+ICIwNiB0byAxNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMTZfMjUiIH4gIjE2IHRvIDI1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIyNl8zNSIgfiAiMjYgdG8gMzV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjM2XzQ1IiB+ICIzNiB0byA0NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNDZfNTUiIH4gIjQ2IHRvIDU1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI1Nl82NSIgfiAiNTYgdG8gNjV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjY1KyIgfiAiNjUgJiB1cCB5IikpICU+JQogIG11dGF0ZShzZXggPSBjYXNlX3doZW4oc2V4PT0gIk0iIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0gIkYiIH4gIkZlbWFsZSIpKSAKCgoKYWdlX3NleF9zdW1tYXJ5ICU+JQogIHVuZ3JvdXAoKSAlPiUKICBtdXRhdGUoYWdlID0gY2FzZV93aGVuKGFnZT09IjAwXzA1IiB+ICIwIHRvIDV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjA2XzE1IiB+ICIwNiB0byAxNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMTZfMjUiIH4gIjE2IHRvIDI1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIyNl8zNSIgfiAiMjYgdG8gMzV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjM2XzQ1IiB+ICIzNiB0byA0NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNDZfNTUiIH4gIjQ2IHRvIDU1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI1Nl82NSIgfiAiNTYgdG8gNjV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjY1KyIgfiAiNjUgJiB1cCB5IikpICU+JQogIG11dGF0ZShzZXggPSBjYXNlX3doZW4oc2V4PT0gIk0iIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0gIkYiIH4gIkZlbWFsZSIpKSAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9yaWJib24oYWVzKHltaW49LmVwcmVkLmxvd2VyLCB5bWF4PS5lcHJlZC51cHBlciwgeD15ZWFyMiwgZ3JvdXAgPSBhY2ZfcGVyaW9kLCBmaWxsPWFjZl9wZXJpb2QpLCBhbHBoYT0wLjUpICsKICBnZW9tX3JpYmJvbihkYXRhID0gYWdlX3NleF9jb3VudGVyZmFjdCAlPiUgZmlsdGVyKHllYXI+PTE5NTYpLCAKICAgICAgICAgICAgICBhZXMoeW1pbj0uZXByZWQubG93ZXIsIHltYXg9LmVwcmVkLnVwcGVyLCB4PXllYXIyLCBmaWxsPSJDb3VudGVyZmFjdHVhbCIpLCBhbHBoYT0wLjUpICsKICBnZW9tX2xpbmUoZGF0YSA9IGFnZV9zZXhfY291bnRlcmZhY3QgJT4lIGZpbHRlcih5ZWFyPj0xOTU2KSwgCiAgICAgICAgICAgICAgYWVzKHk9LmVwcmVkLCB4PXllYXIyLCBjb2xvdXI9IkNvdW50ZXJmYWN0dWFsIikpICsKICBnZW9tX2xpbmUoYWVzKHk9LmVwcmVkLCB4PXllYXIyLCBncm91cD1hY2ZfcGVyaW9kLCAgY29sb3VyPWFjZl9wZXJpb2QpKSArCiAgZ2VvbV9wb2ludChkYXRhID0gbWRhdGFfYWdlX3NleCAlPiUKICB1bmdyb3VwKCkgJT4lCiAgbXV0YXRlKGFnZSA9IGNhc2Vfd2hlbihhZ2U9PSIwMF8wNSIgfiAiMCB0byA1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIwNl8xNSIgfiAiMDYgdG8gMTV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjE2XzI1IiB+ICIxNiB0byAyNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMjZfMzUiIH4gIjI2IHRvIDM1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIzNl80NSIgfiAiMzYgdG8gNDV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjQ2XzU1IiB+ICI0NiB0byA1NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNTZfNjUiIH4gIjU2IHRvIDY1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI2NSsiIH4gIjY1ICYgdXAgeSIpKSAlPiUKICBtdXRhdGUoc2V4ID0gY2FzZV93aGVuKHNleD09ICJNIiB+ICJNYWxlIiwKICAgICAgICAgICAgICAgICAgICAgICAgIHNleD09ICJGIiB+ICJGZW1hbGUiKSkgLCBhZXMoeT1jYXNlcywgeD15ZWFyMiwgc2hhcGU9YWNmX3BlcmlvZCksIHNpemU9MikgKwogIGdlb21fdmxpbmUoYWVzKHhpbnRlcmNlcHQ9YWNmX2VuZCksIGxpbmV0eXBlPTMpICsKICBnZ2g0eDo6ZmFjZXRfZ3JpZDIoYWdlfnNleCwgc2NhbGVzID0gImZyZWVfeSIsIGluZGVwZW5kZW50ID0gInkiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHM9Y29tbWEpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0geWVhcl9sYWJlbHMsCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IHllYXJfbGFiZWxzLAogICAgICAgICAgICAgICAgICAgICBndWlkZSA9IGd1aWRlX2F4aXMoYW5nbGUgPSA5MCkpICsKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCIjREUwRDkyIiwgImdyZXk1MCIsICIjNEQ2Q0ZBIikgLCBuYW1lPSIiKSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCIjREUwRDkyIiwgImdyZXk1MCIsICIjNEQ2Q0ZBIikgLCBuYW1lPSIiKSArCiAgc2NhbGVfc2hhcGVfZGlzY3JldGUobmFtZT0iIikgKwogIGxhYnMoCiAgICB4ID0gIlllYXIiLAogICAgeSA9ICJDYXNlIG5vdGlmaWNhdGlvbnMgKG4pIiwKICAgIGNhcHRpb24gPSAiTWFzcyBtaW5pYXR1cmUgWC1yYXkgY2FtcGFpZ24gcGVyaW9kIGJldHdlZW4gZGFzaGVkIGxpbmVzICgxMXRoIE1hcmNoLTEydGggQXByaWwgMTk1NykiCiAgKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsCiAgICAgICAgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9yZWN0KGNvbG91ciA9ICJncmV5NzgiLCBmaWxsPU5BKSwKICAgICAgICB0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplPTE0KSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT0xNCksCiAgICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT0xMikpICsKICBndWlkZXMoc2hhcGU9Im5vbmUiKQogIApnZ3NhdmUoaGVyZSgiZmlndXJlcy9zNy5wbmciKSwgaGVpZ2h0PTEwKQoKYGBgCgojIyMjIDkuMiBTdW1tYXJ5IG9mIGltcGFjdCBvZiBpbnRlcnZlbnRpb24KCihUaGlzIGFsbCBuZWVkcyB0aWR5aW5nIHVwIGFuZCBjaGVja2luZyAtIHRvIGRvISkKCjEuIHBlcmNlbnRhZ2UgaW5jcmVhc2UgaW4gQ05SLCBmcm9tIDE5NTYgdG8gMTk1NyAoaS5lLiBpbW1lZGlhdGUgQUNGIGVmZmVjdCkKCmBgYHtyfQoKbmQgPC0gbWRhdGFfYWdlX3NleCAlPiUKICBmaWx0ZXIoeWVhciAlaW4lIGMoMTk1NjoxOTU3KSkgJT4lCiAgc2VsZWN0KGFjZl9wZXJpb2QsIHlfbnVtLCBhZ2UsIHNleCkKCgphZ2Vfc2V4X2ltcGFjdF9vdXQgPC0gCiAgYWRkX2VwcmVkX2RyYXdzKG1fYWdlX3NleCwKICAgICAgICAgICAgICAgIG5ld2RhdGE9bmQpICU+JQogIHVuZ3JvdXAoKSAlPiUKICBzZWxlY3QoYWNmX3BlcmlvZCwgLmVwcmVkLCBhZ2UsIHNleCkgJT4lCiAgcGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IGFjZl9wZXJpb2QsCiAgICAgICAgICAgICAgdmFsdWVzX2Zyb20gPSAuZXByZWQsCiAgICAgICAgICAgICAgdmFsdWVzX2ZuID0gbGlzdCkgJT4lCiAgdW5uZXN0KCkgJT4lCiAgcmVuYW1lKHByZV9lcHJlZCA9IDMsCiAgICAgICAgIHBvc3RfZXByZWQgPSA0KSAlPiUKICBtdXRhdGUoYWNmX2RpZmYgPSBwb3N0X2VwcmVkLXByZV9lcHJlZCwKICAgICAgICAgYWNmX3JyID0gcG9zdF9lcHJlZC9wcmVfZXByZWQpICU+JQogIGdyb3VwX2J5KGFnZSwgc2V4KSAlPiUKICBtZWFuX3FpKGFjZl9kaWZmLCBhY2ZfcnIpIAoKYWdlX3NleF9pbXBhY3Rfb3V0ICU+JQogIG11dGF0ZV9pZihpcy5kb3VibGUsIH4gc2NhbGVzOjpudW1iZXIoeCA9IC4sIGFjY3VyYWN5ID0gMC4wMSwgYmlnLm1hcmsgPSAiLCIpKSAlPiUKICBkYXRhdGFibGUoKQogIApmM2EgPC0gYWdlX3NleF9pbXBhY3Rfb3V0ICU+JQogIG11dGF0ZShzZXggPSBjYXNlX3doZW4oc2V4PT0iTSIgfiAiTWFsZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBzZXg9PSJGIiB+ICJGZW1hbGUiKSkgJT4lCiAgbXV0YXRlKGFnZSA9IGNhc2Vfd2hlbihhZ2U9PSIwMF8wNSIgfiAiMCB0byA1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIwNl8xNSIgfiAiMDYgdG8gMTV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjE2XzI1IiB+ICIxNiB0byAyNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMjZfMzUiIH4gIjI2IHRvIDM1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIzNl80NSIgfiAiMzYgdG8gNDV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjQ2XzU1IiB+ICI0NiB0byA1NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNTZfNjUiIH4gIjU2IHRvIDY1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI2NSsiIH4gIjY1ICYgdXAgeSIpKSAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludHJhbmdlKGFlcyh5PWFjZl9yciwgeW1pbj1hY2ZfcnIubG93ZXIsIHltYXg9YWNmX3JyLnVwcGVyLCBncm91cD1zZXgsIAogICAgICAgICAgICAgICAgICAgICAgeD1hZ2UsCiAgICAgICAgICAgICAgICAgICAgICBjb2xvdXIgPSBzZXgpLAogICAgICAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4yNSkpICsKICBnZW9tX2hsaW5lKGFlcyh5aW50ZXJjZXB0PTEpLCBsaW5ldHlwZT0yKSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJwdXJwbGUiLCAiZGFya29yYW5nZSIpLCBuYW1lPSIiKSArCiAgbGFicyh4PSIiLAogICAgICAgeT0iUmVsYXRpdmUgbm90aWZpY2F0aW9ucyAoOTUlIFVJKVxuQUNGICgxOTU3KSB2cy4gQmVmb3JlIEFDRiAoMTk1NikiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLAogICAgICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSkpCiAgCiAgCgpgYGAKCgoyLiBDaGFuZ2UgZnJvbSBwcmUtQUNGIHBlcmlvZCAoMTk1NiksIHRvIGZpcnN0IHllYXIgcG9zdC1BQ0YgKDE5NTgpCgoKYGBge3J9CgpuZCA8LSBtZGF0YV9hZ2Vfc2V4ICU+JQogIGZpbHRlcih5ZWFyICVpbiUgYygxOTU2LDE5NTgpKSAlPiUKICBzZWxlY3QoYWNmX3BlcmlvZCwgeV9udW0sIGFnZSwgc2V4KQoKI0RvIGl0IHdpdGggY2FsY3VsYXRpbmcgaW5jaWRlbmNlLCB0aGVuIHN1bWFtcmlzaW5nLgphZ2Vfc2V4X2ltcGFjdDIgPC1hZGRfZXByZWRfZHJhd3MobV9hZ2Vfc2V4LAogICAgICAgICAgICAgICAgbmV3ZGF0YT1uZCkgJT4lCiAgdW5ncm91cCgpICU+JQogIHNlbGVjdChhY2ZfcGVyaW9kLCAuZXByZWQsIGFnZSwgc2V4KSAlPiUKICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gYWNmX3BlcmlvZCwKICAgICAgICAgICAgICB2YWx1ZXNfZnJvbSA9IC5lcHJlZCwKICAgICAgICAgICAgICB2YWx1ZXNfZm4gPSBsaXN0KSAlPiUKICB1bm5lc3QoKSAlPiUKICByZW5hbWUocHJlX2VwcmVkID0gMywKICAgICAgICBwb3N0X2VwcmVkID0gNCkgJT4lCiAgbXV0YXRlKGFjZl9kaWZmID0gcG9zdF9lcHJlZC1wcmVfZXByZWQsCiAgICAgICAgIGFjZl9yciA9IHBvc3RfZXByZWQvcHJlX2VwcmVkKSAlPiUKICBncm91cF9ieShhZ2UsIHNleCkgJT4lCiAgbWVhbl9xaShhY2ZfZGlmZiwgYWNmX3JyKSAKCmFnZV9zZXhfaW1wYWN0MiAlPiUKICBtdXRhdGVfaWYoaXMuZG91YmxlLCB+IHNjYWxlczo6bnVtYmVyKHggPSAuLCBhY2N1cmFjeSA9IDAuMDEsIGJpZy5tYXJrID0gIiwiKSkgJT4lCiAgZGF0YXRhYmxlKCkKCmYzYiA8LSBhZ2Vfc2V4X2ltcGFjdDIgJT4lICAKICBtdXRhdGUoc2V4ID0gY2FzZV93aGVuKHNleD09Ik0iIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0iRiIgfiAiRmVtYWxlIikpICU+JQogIG11dGF0ZShhZ2UgPSBjYXNlX3doZW4oYWdlPT0iMDBfMDUiIH4gIjAgdG8gNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMDZfMTUiIH4gIjA2IHRvIDE1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIxNl8yNSIgfiAiMTYgdG8gMjV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjI2XzM1IiB+ICIyNiB0byAzNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMzZfNDUiIH4gIjM2IHRvIDQ1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI0Nl81NSIgfiAiNDYgdG8gNTV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjU2XzY1IiB+ICI1NiB0byA2NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNjUrIiB+ICI2NSAmIHVwIHkiKSkgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fcG9pbnRyYW5nZShhZXMoeT1hY2ZfcnIsIHltaW49YWNmX3JyLmxvd2VyLCB5bWF4PWFjZl9yci51cHBlciwgZ3JvdXA9c2V4LCAKICAgICAgICAgICAgICAgICAgICAgIHg9YWdlLAogICAgICAgICAgICAgICAgICAgICAgY29sb3VyID0gc2V4KSwKICAgICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuMjUpKSArCiAgZ2VvbV9obGluZShhZXMoeWludGVyY2VwdD0xKSwgbGluZXR5cGU9MikgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygicHVycGxlIiwgImRhcmtvcmFuZ2UiKSwgbmFtZT0iIikgKwogIGxhYnMoeD0iIiwKICAgICAgIHk9IlJlbGF0aXZlIG5vdGlmaWNhdGlvbnMgKDk1JSBVSSlcbkFDRiAoMTk1OCkgdnMuIEJlZm9yZSBBQ0YgKDE5NTYpIikgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwKICAgICAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKQoKCmBgYAoKMy4gQ2hhbmdlIGluIHNsb3BlIChpLmUuIGRpZmZlcmVuY2UgaW4gbWVhbiBhbm51YWwgY2FzZSBub3RpZmljYXRpb24gcmF0ZSBwcmUtSW50ZXJ2ZW50aW9uIHZzLiBwb3N0LWludGVydmVudGlvbiwgYnkgd2FyZCkKCmBgYHtyfQoKYWdlX3NleF9pbXBhY3QzIDwtIG1kYXRhX2FnZV9zZXggJT4lCiAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWNmX3BlcmlvZCwgY2FzZXMsIGFnZSwgc2V4KSAlPiUKICBmaWx0ZXIoeWVhciE9MTk1NykgJT4lCiAgYWRkX2VwcmVkX2RyYXdzKG1fYWdlX3NleCkgJT4lCiAgZ3JvdXBfYnkoeWVhciwgYWdlLCBzZXgsIGFjZl9wZXJpb2QpICU+JQogIG1lYW5fcWkoLmVwcmVkKSAlPiUKICB1bmdyb3VwKCkgJT4lCiAgbXV0YXRlKG5feWVhcnMgPSBsZW5ndGgoeWVhciksIC5ieT1hY2ZfcGVyaW9kKSAlPiUKICBzdW1tYXJpc2UocGN0X2NoYW5nZV9lcHJlZF9vdmVyYWxsID0gKCgobGFzdCguZXByZWQpIC0gZmlyc3QoLmVwcmVkKSkvZmlyc3QoLmVwcmVkKSkpLAogICAgICAgICAgICBwY3RfY2hhbmdlX2xvd2VyX292ZXJhbGwgPSAoKChsYXN0KC5sb3dlcikgLSBmaXJzdCgubG93ZXIpKS9maXJzdCgubG93ZXIpKSksCiAgICAgICAgICAgIHBjdF9jaGFuZ2VfdXBwZXJfb3ZlcmFsbCA9ICgoKGxhc3QoLnVwcGVyKSAtIGZpcnN0KC51cHBlcikpL2ZpcnN0KC51cHBlcikpKSwKICAgIAogICAgICAgICAgICBwY3RfY2hhbmdlX2VwcmVkX2FubnVhbCA9ICgoKGxhc3QoLmVwcmVkKSAtIGZpcnN0KC5lcHJlZCkpL2ZpcnN0KC5lcHJlZCkpL25feWVhcnMpLAogICAgICAgICAgICBwY3RfY2hhbmdlX2xvd2VyX2FubnVhbCA9ICgoKGxhc3QoLmxvd2VyKSAtIGZpcnN0KC5sb3dlcikpL2ZpcnN0KC5sb3dlcikpL25feWVhcnMpLAogICAgICAgICAgICBwY3RfY2hhbmdlX3VwcGVyX2FubnVhbCA9ICgoKGxhc3QoLnVwcGVyKSAtIGZpcnN0KC51cHBlcikpL2ZpcnN0KC51cHBlcikpL25feWVhcnMpLAogICAgICAgICAgICAuYnkgPSBjKGFjZl9wZXJpb2QsIGFnZSwgc2V4KSkgJT4lCiAgZGlzdGluY3QoKQoKCmFnZV9zZXhfaW1wYWN0MyAlPiUKICBtdXRhdGVfaWYoaXMuZG91YmxlLCBwZXJjZW50KSAlPiUKICBkYXRhdGFibGUoKQoKZjNjIDwtIGFnZV9zZXhfaW1wYWN0MyAlPiUKICBtdXRhdGUoc2V4ID0gY2FzZV93aGVuKHNleD09Ik0iIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0iRiIgfiAiRmVtYWxlIikpICU+JQogIG11dGF0ZShhZ2UgPSBjYXNlX3doZW4oYWdlPT0iMDBfMDUiIH4gIjAgdG8gNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMDZfMTUiIH4gIjA2IHRvIDE1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIxNl8yNSIgfiAiMTYgdG8gMjV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjI2XzM1IiB+ICIyNiB0byAzNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMzZfNDUiIH4gIjM2IHRvIDQ1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI0Nl81NSIgfiAiNDYgdG8gNTV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjU2XzY1IiB+ICI1NiB0byA2NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNjUrIiB+ICI2NSAmIHVwIHkiKSkgJT4lCiAgZ2dwbG90KCkgKwogICAgZ2VvbV9obGluZShhZXMoeWludGVyY2VwdD0wKSwgbGluZXR5cGU9MikgKwogICAgZ2VvbV9wb2ludHJhbmdlKGFlcyh5PXBjdF9jaGFuZ2VfZXByZWRfYW5udWFsLCB5bWluPXBjdF9jaGFuZ2VfbG93ZXJfYW5udWFsLCB5bWF4PXBjdF9jaGFuZ2VfdXBwZXJfYW5udWFsLCBncm91cD1hY2ZfcGVyaW9kLCAKICAgICAgICAgICAgICAgICAgICAgIHg9YWdlLAogICAgICAgICAgICAgICAgICAgICAgY29sb3VyID0gYWNmX3BlcmlvZCksIHNpemU9MC4xKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9cGVyY2VudCkgKwogIGZhY2V0X2dyaWQoLn5zZXgpICsKICBjb29yZF9mbGlwKCkgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygiI0RFMEQ5MiIsICIjNEQ2Q0ZBIikpICsKICBsYWJzKHg9IiIsCiAgICAgICB5PSJNZWFuIGFubnVhbCByYXRlIG9mIGNoYW5nZSBpbiBjYXNlIG5vdGlmaWNhdGlvbiByYXRlICg5NSUgVUkpXG4gQmVmb3JlIEFDRiAoMTk1MC0xOTU2KSB2cy4gYWZ0ZXIgQUNGICgxOTU4LTE5NjMpIiwKICAgICAgIGNvbG91cj0iIikgKwogIHRoZW1lX2dnZGlzdCgpICsKICB0aGVtZShwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3VyID0gImdyZXk3OCIsIGZpbGw9TkEpKQoKZjNjCgpgYGAKCgojIyMjIDkuMyBDb21wYXJlZCB0byBjb3VudGVyZmFjdHVhbAoKYGBge3J9Cgpjb3VudGVyZmFjdF9hZ2Vfc2V4IDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSBtX2FnZV9zZXgsCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0gbWRhdGFfYWdlX3NleCAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWdlLCBzZXgpICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtdXRhdGUoYWNmX3BlcmlvZCA9ICJhLiBwcmUtYWNmIikpICU+JQogICAgICBmaWx0ZXIoeWVhcj4xOTU3KSAlPiUKICAgICAgc2VsZWN0KHllYXIsIGFnZSwgc2V4LCAuZHJhdywgLmVwcmVkX2NvdW50ZXJmID0gLmVwcmVkKQogIAojQ2FsY3VhdGUgaW5jaWRlbmNlIHBlciBkcmF3LCB0aGVuIHN1bW1hcmlzZS4KICBwb3N0X2NoYW5nZV9hZ2Vfc2V4IDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSBtX2FnZV9zZXgsCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0gbWRhdGFfYWdlX3NleCAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWdlLCBzZXgsIGFjZl9wZXJpb2QpKSAlPiUKICAgICAgZmlsdGVyKHllYXI+MTk1NykgJT4lCiAgICAgIHVuZ3JvdXAoKSAlPiUKICAgICAgc2VsZWN0KHllYXIsIGFnZSwgc2V4LCAuZHJhdywgLmVwcmVkKSAKICAKICAjZm9yIHRoZSBvdmVyYWxsIHBlcmlvZApjb3VudGVyZmFjdF9vdmVyYWxsX2FnZV9zZXggPC0KICAgICAgYWRkX2VwcmVkX2RyYXdzKG9iamVjdCA9IG1fYWdlX3NleCwKICAgICAgICAgICAgICAgICAgICAgIG5ld2RhdGEgPSBtZGF0YV9hZ2Vfc2V4ICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzZWxlY3QoeWVhciwgeWVhcjIsIHlfbnVtLCBhZ2UsIHNleCkgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG11dGF0ZShhY2ZfcGVyaW9kID0gImEuIHByZS1hY2YiKSkgJT4lCiAgICAgIGZpbHRlcih5ZWFyPjE5NTcpICU+JQogICAgICBzZWxlY3QoYWdlLCBzZXgsIC5kcmF3LCAuZXByZWQpICAlPiUKICAgICAgZ3JvdXBfYnkoYWdlLCBzZXgsIC5kcmF3KSAlPiUKICAgICAgc3VtbWFyaXNlKC5lcHJlZF9jb3VudGVyZiA9IHN1bSguZXByZWQpKSAlPiUKICAgICAgbXV0YXRlKHllYXIgPSAiT3ZlcmFsbCAoMTk1OC0xOTYzKSIpCiAgCiAgI0NhbGN1YXRlIGluY2lkZW5jZSBwZXIgZHJhdywgdGhlbiBzdW1tYXJpc2UuCiAgcG9zdF9jaGFuZ2Vfb3ZlcmFsbF9hZ2Vfc2V4IDwtCiAgICAgIGFkZF9lcHJlZF9kcmF3cyhvYmplY3QgPSBtX2FnZV9zZXgsCiAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0gbWRhdGFfYWdlX3NleCAlPiUKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2VsZWN0KHllYXIsIHllYXIyLCB5X251bSwgYWdlLCBzZXgsIGFjZl9wZXJpb2QpKSAlPiUKICAgICAgZmlsdGVyKHllYXI+MTk1NykgJT4lCiAgICAgIHNlbGVjdChhZ2UsIHNleCwgLmRyYXcsIC5lcHJlZCkgJT4lCiAgICAgIGdyb3VwX2J5KC5kcmF3LCBhZ2UsIHNleCkgJT4lCiAgICAgIHN1bW1hcmlzZSguZXByZWQgPSBzdW0oLmVwcmVkKSkgCiAgCiAgCgpsZWZ0X2pvaW4oY291bnRlcmZhY3RfYWdlX3NleCwgcG9zdF9jaGFuZ2VfYWdlX3NleCkgJT4lCiAgICBtdXRhdGUoY2FzZXNfYXZlcnRlZCA9IC5lcHJlZF9jb3VudGVyZi0uZXByZWQsCiAgICAgICAgICAgcGN0X2NoYW5nZSA9ICguZXByZWQgLSAuZXByZWRfY291bnRlcmYpLy5lcHJlZF9jb3VudGVyZikgJT4lCiAgICBncm91cF9ieSh5ZWFyLCBhZ2UsIHNleCkgJT4lCiAgICBtZWFuX3FpKGNhc2VzX2F2ZXJ0ZWQsIHBjdF9jaGFuZ2UpICU+JQogICAgdW5ncm91cCgpICU+JQogIGRhdGF0YWJsZSgpCgpjb3VudGVyX3Bvc3Rfb3ZlcmFsbF9hZ2Vfc2V4IDwtCiAgbGVmdF9qb2luKGNvdW50ZXJmYWN0X292ZXJhbGxfYWdlX3NleCwgcG9zdF9jaGFuZ2Vfb3ZlcmFsbF9hZ2Vfc2V4KSAlPiUKICAgIG11dGF0ZShjYXNlc19hdmVydGVkID0gLmVwcmVkX2NvdW50ZXJmLS5lcHJlZCwKICAgICAgICAgICBwY3RfY2hhbmdlID0gKC5lcHJlZCAtIC5lcHJlZF9jb3VudGVyZikvLmVwcmVkX2NvdW50ZXJmKSAlPiUKICAgIGdyb3VwX2J5KGFnZSwgc2V4KSAlPiUKICAgIG1lYW5fcWkoY2FzZXNfYXZlcnRlZCwgcGN0X2NoYW5nZSkgJT4lCiAgICB1bmdyb3VwKCkgJT4lCiAgICBtdXRhdGUoeWVhciA9ICJPdmVyYWxsICgxOTU4LTE5NjMpIikgCgoKYGBgCgoKYGBge3J9CgphZ2Vfc2V4X3R4dCA8LSBjb3VudGVyX3Bvc3Rfb3ZlcmFsbF9hZ2Vfc2V4ICU+JQogIG11dGF0ZShhY3Jvc3MoYyhjYXNlc19hdmVydGVkOmNhc2VzX2F2ZXJ0ZWQudXBwZXIpLCBudW1iZXJfZm9ybWF0KGFjY3VyYWN5ID0gMC4xLCBiaWcubWFyayA9ICIsIikpKSAlPiUKICBtdXRhdGUoYWNyb3NzKGMocGN0X2NoYW5nZTpwY3RfY2hhbmdlLnVwcGVyKSwgcGVyY2VudCwgYWNjdXJhY3k9MC4xKSkgJT4lCiAgdHJhbnNtdXRlKHllYXIgPSBhcy5jaGFyYWN0ZXIoeWVhciksCiAgICAgICAgICAgIHNleCA9IHNleCwKICAgICAgICAgICAgYWdlID0gYWdlLAogICAgICAgICAgICBjYXNlc19hdmVydGVkID0gZ2x1ZTo6Z2x1ZSgie2Nhc2VzX2F2ZXJ0ZWR9XG4oe2Nhc2VzX2F2ZXJ0ZWQubG93ZXJ9IHRvIHtjYXNlc19hdmVydGVkLnVwcGVyfSkiKSwKICAgICAgICAgICAgcGN0X2NoYW5nZSA9IGdsdWU6OmdsdWUoIntwY3RfY2hhbmdlfVxuKHtwY3RfY2hhbmdlLmxvd2VyfSB0byB7cGN0X2NoYW5nZS51cHBlcn0pIikpCgoKYWdlX3NleF90eHQgJT4lIGRhdGF0YWJsZSgpCgoKYGBgCgpgYGB7cn0KCmYzZCA8LSBjb3VudGVyX3Bvc3Rfb3ZlcmFsbF9hZ2Vfc2V4ICU+JSAKICBtdXRhdGUoc2V4ID0gY2FzZV93aGVuKHNleD09Ik0iIH4gIk1hbGUiLAogICAgICAgICAgICAgICAgICAgICAgICAgc2V4PT0iRiIgfiAiRmVtYWxlIikpICU+JQogIG11dGF0ZShhZ2UgPSBjYXNlX3doZW4oYWdlPT0iMDBfMDUiIH4gIjAgdG8gNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMDZfMTUiIH4gIjA2IHRvIDE1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSIxNl8yNSIgfiAiMTYgdG8gMjV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjI2XzM1IiB+ICIyNiB0byAzNXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iMzZfNDUiIH4gIjM2IHRvIDQ1eSIsCiAgICAgICAgICAgICAgICAgICAgICAgICBhZ2U9PSI0Nl81NSIgfiAiNDYgdG8gNTV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGFnZT09IjU2XzY1IiB+ICI1NiB0byA2NXkiLAogICAgICAgICAgICAgICAgICAgICAgICAgYWdlPT0iNjUrIiB+ICI2NSAmIHVwIHkiKSkgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fcG9pbnRyYW5nZShhZXMoeCA9IGFnZSwgeT1jYXNlc19hdmVydGVkLCB5bWluPWNhc2VzX2F2ZXJ0ZWQubG93ZXIsIHltYXg9Y2FzZXNfYXZlcnRlZC51cHBlciwgY29sb3VyPXNleCkpICsgCiAgZmFjZXRfZ3JpZCgufnNleCkgKwogIGNvb3JkX2ZsaXAoKSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJwdXJwbGUiLCAiZGFya29yYW5nZSIpLCBuYW1lPSIiKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IGNvbW1hKSArCiAgbGFicyh4PSIiLAogICAgICAgeT0iTnVtYmVyICg5NSUgVUkpIG9mIFRCIGNhc2VzIGF2ZXJ0ZWQgKDE5NTgtMTk2MykiLAogICAgICAgY29sb3VyPSIiKSArCiAgdGhlbWVfZ2dkaXN0KCkgKwogIHRoZW1lKHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfcmVjdChjb2xvdXIgPSAiZ3JleTc4IiwgZmlsbD1OQSksCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQoKZjNkCmBgYAoKCgoKSm9pbiB0b2dldGhlciBmb3IgRmlndXJlIDIuCgoKYGBge3J9CgooZjNhICsgZjNiKSAvIChmM2MgKyBmM2QpICsgcGxvdF9hbm5vdGF0aW9uKHRhZ19sZXZlbHMgPSAiQSIpCgpnZ3NhdmUoaGVyZSgiZmlndXJlcy9mMy5wbmciKSwgd2lkdGggPSAxMikKCgpgYGAKbWRhdGFfYWdlX3NleA==